CTLBLK.f

Go to the documentation of this file.

 
!-----------------------------------------------------------------------
  module ctlblk_mod
!
  implicit none
!
  type field_info       
    integer ifld
    integer lvl
    integer lvl1
    integer lvl2
    integer ntrange
    integer tinvstat
  end type
!
  integer, parameter :: komax=70
  integer, parameter :: lsmdef=46
  integer,PARAMETER  :: nfd=20
  integer,PARAMETER  :: nbnd=6
  REAL,  PARAMETER   :: qmin = 1.e-15     
!
  integer :: novegtype
!
  character(len=256) :: filename
  character(len=256) :: filenameflux
  character(len=256) :: filenamed3d
  character(len=256) :: filenameaer
  character(len=256) :: filenameflat
  character(len=19)  :: datestr
  character(len=4)   :: modelname
  character(len=4)   :: submodelname
  character(len=8)   :: fullmodelname
  character(len=20)  :: ioform
  character(len=4)   :: vtimeunits
! 
  character(5) :: grib
  type(field_info),allocatable :: fld_info(:)
  integer :: cfld
  integer :: ntlfld
  integer :: npset
  real*8 :: gdsdegr                             
  real,allocatable :: datapd(:,:,:)
!
  logical :: gocart_on
  logical :: gccpp_on
  logical :: nasa_on
  logical :: d3d_on
  logical :: hyb_sigp
  logical :: rdaod
  logical :: d2d_chem
  logical :: aqf_on
  logical :: slrutah_on
  logical :: gtg_on
  logical :: method_blsn
!
  logical :: sigma
  logical :: run
  logical :: first
  logical :: restrt
  logical :: global
  logical :: smflag
!
  integer :: idat(5)
  integer :: ihrst
  integer :: ifhr
  integer :: imin
  integer :: ifmin
  integer :: imp_physics
  integer :: icu_physics
  integer :: isf_surface_physics
  integer :: datahandle
  integer :: nprec
  integer :: nphs
  integer :: isec
  integer :: icount_calmict
  integer :: ivegsrc
 
!
   integer :: nfcst,nbc,list,iout,ntstm,                 &
             nrads,nradl,nddamp,idtad,nboco,nshde,ncp,imdlty
!
  real :: dt
  real :: sdat(3)
  real :: avrain
  real :: avcnvc
  real :: dtq2
  real :: pt
  real :: pdtop
  real :: spl(komax)
  real :: alsl(komax)
  real :: prec_acc_dt
  real :: pt_tbl
  real :: prec_acc_dt1
  real :: spval
! real :: SPVAL=9.9e10                                     ! Moorthi
!
  integer :: num_procs
  integer :: me
  integer :: jsta
  integer :: jend
  integer :: ista
  integer :: iend
  integer :: jsta_m
  integer :: jend_m
  integer :: jsta_m2
  integer :: jend_m2
  integer ::  ista_m
  integer ::  iend_m
  integer ::  ista_m2
  integer ::  iend_m2
  integer :: iup
  integer :: idn
 
  integer :: icnt(0:1023)
  integer :: idsp(0:1023)
  integer :: icnt2(0:1023)
  integer :: idsp2(0:1023)
  integer :: jsta_2l
  integer :: jend_2u
  integer :: jvend_2u
  integer :: ista_2l
  integer :: iend_2u
  integer :: ivend_2u
  integer :: num_servers
  integer :: mpi_comm_inter
  integer :: mpi_comm_comp
  integer :: im
  integer :: jm
  integer :: lm
  integer :: nsoil
  integer :: lp1
  integer :: lm1
  integer :: im_jm
  integer :: ileft
  integer :: iright
  integer :: ileftb
  integer :: irightb
  integer :: ibsize
  integer :: ibsum
  !comm mpi
  integer :: lsm
  integer :: lsmp1
!
  integer, allocatable :: icoords(:,:)
  integer, allocatable :: ibcoords(:,:)
  real, allocatable :: rcoords(:,:)
  real, allocatable :: rbcoords(:,:)
 
  real, allocatable :: bufs(:)
  real, allocatable :: buff(:)
  integer, allocatable :: isxa(:)
  integer, allocatable :: iexa(:)
  integer, allocatable :: jsxa(:)
  integer, allocatable :: jexa(:)
  integer numx
  integer, allocatable :: ibufs(:)
  real, allocatable :: rbufs(:)
!
!comm rad
  real :: ardsw
  real :: ardlw
  real :: asrfc
  real :: tsrfc
  real :: trdlw
  real :: trdsw
  real :: tclod
  real :: theat
  real :: tprec
  real :: tmaxmin
  real :: td3d
!
  real pthresh
!
  real(kind=8) :: etafld2_tim=0.,eta2p_tim=0.,surfce2_tim=0.,          &
                  cldrad_tim=0.,miscln_tim=0.,fixed_tim=0.,            &
                  mdl2sigma_tim=0.,readxml_tim=0.,mdl2agl_tim=0.,      &
                  mdl2std_tim=0.,mdl2thandpv_tim=0.,                   &
                  calrad_wcloud_tim=0.,run_ifi_tim=0.     !comm tim_info
!
  real(kind=8) :: time_output=0., time_e2out=0.           !comm jjt
!
  real :: spldef(lsmdef) =                                             &
      (/200.,500.,700.,1000.,2000.,3000.                               &
      ,5000.,7000.,7500.,10000.,12500.,15000.,17500.,20000.,22500.     &
      ,25000.,27500.,30000.,32500.,35000.,37500.,40000.,42500.,45000.  &
      ,47500.,50000.,52500.,55000.,57500.,60000.,62500.,65000.         &
      ,67500.,70000.,72500.,75000.,77500.,80000.,82500.,85000.         &
      ,87500.,90000.,92500.,95000.,97500.,100000./)
!
  REAL htfd(nfd)
  REAL petabnd(nbnd)
  REAL sigbnd(nbnd)
 
! Add GOCART aerosol specification
  integer, parameter :: nbin_du = 5
  integer, parameter :: nbin_ss = 5
  integer, parameter :: nbin_oc = 2
  integer, parameter :: nbin_bc = 2
  integer, parameter :: nbin_su = 1
  integer, parameter :: nbin_no3 = 3
  integer, parameter :: nbin_nh4 = 1
  integer, parameter :: nbin_sm = 1
!
!     SET FD LEVEL HEIGHTS IN GEOPOTENTAL METERS.
      DATA htfd  / 20.e0,30.e0,40.e0,50.e0,80.e0,100.e0,160.e0,305.e0,320.e0,457.e0,610.e0,   &
           914.e0,1524.e0,1829.e0,2134.e0,2743.e0,3658.e0,4572.e0, &
       6000.e0,7010.e0/
!
!     SET MIDPOINT "SIGMA" VALUES FOR ETA BOUNDARY LAYERS.
      DATA sigbnd / 0.985,0.955,0.925,0.895,0.865,0.835 /
      DATA petabnd / 15.,45.,75.,105.,135.,165./
!
      real :: itprec=-1
!  
      integer :: ifi_nflight = 0
      real, allocatable :: ifi_flight_levels(:)
!     
!-----------------------------------------------------------------------
  end module ctlblk_mod