bl_mynn_common.f90

 
 
 module bl_mynn_common
 
!------------------------------------------
!
!------------------------------------------
 
! The following 5-6 lines are the only lines in this file that are not 
! universal for all dycores... Any ideas how to universalize it?
! For MPAS:
! use mpas_kind_types,only: kind_phys => RKIND
! For CCPP:
  use machine,  only : kind_phys
 
 implicit none
 save
 
! To be specified from dycore
 real(kind=kind_phys):: cp           
 real(kind=kind_phys):: cpv          
 real(kind=kind_phys):: cice         
 real(kind=kind_phys):: cliq         
 real(kind=kind_phys):: p608         
 real(kind=kind_phys):: ep_2         
 real(kind=kind_phys):: grav         
 real(kind=kind_phys):: karman       
 real(kind=kind_phys):: t0c          
 real(kind=kind_phys):: rcp          
 real(kind=kind_phys):: r_d          
 real(kind=kind_phys):: r_v          
 real(kind=kind_phys):: xlf          
 real(kind=kind_phys):: xlv          
 real(kind=kind_phys):: xls          
 real(kind=kind_phys):: rvovrd       
 
! Specified locally
 real(kind=kind_phys),parameter:: zero   = 0.0
 real(kind=kind_phys),parameter:: half   = 0.5
 real(kind=kind_phys),parameter:: one    = 1.0
 real(kind=kind_phys),parameter:: two    = 2.0
 real(kind=kind_phys),parameter:: onethird  = 1./3.
 real(kind=kind_phys),parameter:: twothirds = 2./3.
 real(kind=kind_phys),parameter:: tref  = 300.0   
 real(kind=kind_phys),parameter:: tkmin = 253.0   
 real(kind=kind_phys),parameter:: p1000mb=100000.0
 real(kind=kind_phys),parameter:: svp1  = 0.6112 
 real(kind=kind_phys),parameter:: svp2  = 17.67  
 real(kind=kind_phys),parameter:: svp3  = 29.65  
 real(kind=kind_phys),parameter:: tice  = 240.0  
 
! To be derived in the init routine
 real(kind=kind_phys):: ep_3         
 real(kind=kind_phys):: gtr          
 real(kind=kind_phys):: rk           
 real(kind=kind_phys):: tv0          
 real(kind=kind_phys):: tv1          
 real(kind=kind_phys):: xlscp        
 real(kind=kind_phys):: xlvcp        
 real(kind=kind_phys):: g_inv        
 
 end module bl_mynn_common