var/da/da_grid_definitions/da_grid_definitions.f90

   1 module da_grid_definitions
   2
   3    !---------------------------------------------------------------------------
   4    ! Purpose: Calculation of analysis grid variables:
   5    !---------------------------------------------------------------------------
   6
   7    use da_control, only : gravity, convert_fd2uv, gas_constant, convert_uv2fd, &
   8       pi, cone_factor, map_projection, phic,psi1,earth_radius,c2,pole, trace_use, &
   9       ycntr,truelat1_3dv,xlonc,ptop,t0,base_pres,base_lapse,base_temp, trace_use_dull, &
  10       trace_use_frequent,missing_r,missing_data
  11    use da_reporting, only : da_error,message
  12    use da_tracing, only : da_trace_entry, da_trace_exit
  13
  14    implicit none
  15
  16    contains
  17
  18 #include "da_ref_height.inc"
  19 #include "da_ref_pres.inc"
  20 #include "da_ffdduv.inc"
  21 #include "da_ffdduv_model.inc"
  22 #include "da_earth_2_model_wind.inc"
  23 #include "da_ffdduv_diagnose.inc"
  24
  25 end module da_grid_definitions