physparam.f

Go to the documentation of this file.

!  ==========================================================  !!!!!
!                    module physparam description              !!!!!
!  ==========================================================  !!!!!
!                                                                      !
!     This module defines commonly used control variables/parameters   !
!     in physics related programs.                                     !
!                                                                      !
!     Section 1 contains control variables defined in the form of      !
!     parameter. They are pre-determined choices and not adjustable    !
!     during model's run-time.                                         !
!                                                                      !
!     Section 2 contains control variables defined as module variables.!
!     They are more flexible to be changed during run-time by either   !
!     through input namelist, or through model environment condition.  !
!     They are preassigned here as the default values.                 !
!                                                                      !
!!!!!  ==========================================================  !!!!!

!========================================!
      module physparam                   !
!........................................!
!
!     implicit   none

!  --- ...  define kind parameters here

!   ** if already exist, use the module containing kind definitions
      use machine

!   ** otherwise, define kind parameter here
!     implicit   none
!     integer, public, parameter :: kind_io4 = 4
!     integer, public, parameter :: kind_io8 = 8
!     integer, public, parameter :: kind_phys= selected_real_kind(13,60) ! the '60' maps to 64-bit real
!      .....

!     implicit   none
!
      public

!==================================================================================
!  Section - 1 -
!     control flags are pre-set as run-time non-adjuztable parameters.
!==================================================================================

! ............................................. !
! ............................................. !

      integer,parameter :: iswrate = 2  
                                       
      integer,parameter :: iswrgas = 1
                                       
      integer,save      :: iswcliq = 1  
                                       
      integer,save      :: iswcice = 3  
                                       
      integer,parameter :: iswmode = 2 

! ............................................. !
! ............................................. !

      integer,parameter :: ilwrate = 2  

      integer,parameter :: ilwrgas = 1  

      integer,save      :: ilwcliq = 1 

      integer,save      :: ilwcice = 3  

! ............................................. !

      logical,parameter :: lalw1bd =.false. 

!==================================================================================
!  Section - 2 -
!     values of control flags might be re-set in initialization subroutines
!       (may be adjusted at run time based on namelist input or run condition)
!==================================================================================

! ............................................. !
! ............................................. !

      integer, save :: isolar  = 0   

      character, save :: solar_file*26 
!     data solar_file   / 'solarconstantdata.txt     ' /
      data solar_file   / 'solarconstant_noaa_a0.txt ' /

! ............................................. !
! ............................................. !

      integer, save :: iaermdl = 0      
      integer, save :: iaerflg = 0     
      logical, save :: lalwflg = .true. 
      logical, save :: laswflg = .true. 
      logical, save :: lavoflg = .true. 
      character, save :: aeros_file*26  
!     data aeros_file   / 'climaeropac_global.txt    ' /
      data aeros_file   / 'aerosol.dat               ' /

! ............................................. !
! ............................................. !

      integer, save :: ico2flg = 0    
      integer, save :: ictmflg = 0     
      integer, save :: ioznflg = 1      
      character, save :: co2dat_file*26 
      character, save :: co2gbl_file*26 
      character, save :: co2usr_file*26 
      character, save :: co2cyc_file*26
      data co2dat_file   / 'co2historicaldata_2004.txt' /   !year is run-time selected
      data co2gbl_file   / 'co2historicaldata_glob.txt' /
      data co2usr_file   / 'co2userdata.txt           ' /
      data co2cyc_file   / 'co2monthlycyc.txt         ' /

! ............................................. !
! ............................................. !

      integer, save :: icldflg = 1      
      integer, save :: icmphys = 1    
      integer, save :: iovrsw  = 1   
      integer, save :: iovrlw  = 1  
      logical, save :: lcrick  =.false. 
      logical, save :: lcnorm  =.false.
      logical, save :: lnoprec =.false. 
      logical, save :: lsashal =.false. 

! ............................................. !
! ............................................. !

      integer, save :: ialbflg = 0      
      integer, save :: iemsflg = 0     

      character, save :: semis_file*26  
      data semis_file   / 'sfc_emissivity_idx.txt    ' /

! ............................................. !
! ............................................. !

      integer, save :: ivflip  = 1      
      integer, save :: isubcsw = 0      
      integer, save :: isubclw = 0      
      integer, save :: ipsd0   = 0    
!
!...................................!
      end module physparam          !
!===================================!
!! @}