iounitdef.f

 
 
!!!!!  ==========================================================  !!!!!
!!!!!             module "module_iounitdef description             !!!!!
!!!!!  ==========================================================  !!!!!
!                                                                      !
!     this module defines fortran unit numbers for input/output data   !
!     files for the ncep gfs model.                                    !
!                                                                      !
!      name      type    description                         unit no.  !
!     ---------------------------------------------------------------  !
!     NISIGI  - input,  sigma file 1                            11     !
!     NISIGI2 - input,  sigma file 2                            12     !
!     NISFCI  - input,  surface initial data                    14     !
!                                                                      !
!     NIMTNVR - input,  montain variance file                   24     !
!     NIDTBTH - input,  equivalent potential temperature file   27     !
!     NICO2TR - input,  co2 transm table for gfdl-lw only       15     !
!     NICO2CN - input,  monthly/yearly 2-d co2 data   (shared)  102    !
!     NIO3PRD - input,  ozone production climatology            28     !
!     NIO3LOS - input,  ozone destruction climatology           29     !
!     NIO3CLM - input,  ozone climatology distribution          48     !
!     NINAMSF - input,  namelist for surface file               35     !
!     NISFCYC - input,  surface cycle files                     101    !
!     NIRADSF - input,  radiation surface data files  (shared)  102    !
!     NICLTUN - input,  cloud tuning table                      43     !
!     NIMICPH - input,  micro physics data file                 1      !
!     NIAERCM - input,  aerosols climatology          (shared)  102    !
!                                                                      !
!     NOSIGR1 - output, first time level sigma restart file     51     !
!     NOSIGR2 - output, second time level sigma restart file    52     !
!     NOSFCR  - output, surface restart file                    53     !
!     NOSIGF  - output, sigma file for post process             61     !
!     NOSFCF  - output, surface file for post process           62     !
!     NOFLXF  - output, flux file for post process              63     !
!     NOD3DF  - output, 3-d  file for post process              64     !
!     NOAERF  - output, 2-d  file for post process              65     !
!hchuang code change [+1L]
!     NOG3DF  - output, 3-d  file for GFS-GOCART specific       69     !
!     NOLOGF  - output, log  file                               99     !
!                                                                      !
!     NIOFRAD - in/out, temperary radiation data file (shared)  16     !
!                                                                      !
!!!!!  ==========================================================  !!!!!
!!!!!                       end descriptions                       !!!!!
!!!!!  ==========================================================  !!!!!
 
!========================================!
      module module_iounitdef            !
!........................................!
!
      implicit   none
!
      public
 
!  --- ...  input units
 
      integer, parameter :: nisigi  = 11
      integer, parameter :: nisigi2 = 12
      integer, parameter :: nisfci  = 14
      integer, parameter :: nico2tr = 15
      integer, parameter :: nico2cn = 112 ! CCE (Cray) forbids 100-102 20211112 JM
      integer, parameter :: nimtnvr = 24
      integer, parameter :: nidtbth = 27
      integer, parameter :: nio3prd = 28
      integer, parameter :: nio3los = 29
      integer, parameter :: ninamsf = 35
      integer, parameter :: nicltun = 43
      integer, parameter :: nio3clm = 48
      integer, parameter :: nimicph = 1
      integer, parameter :: nisfcyc = 111 ! CCE (Cray) forbids 100-102 20210701 JM
      integer, parameter :: niaercm = 112 ! CCE (Cray) forbids 100-102 20210701 JM
      integer, parameter :: niradsf = 112 ! CCE (Cray) forbids 100-102 20210701 JM
 
!  --- ... output units
 
      integer, parameter :: nosigr1 = 51
      integer, parameter :: nosigr2 = 52
      integer, parameter :: nosfcr  = 53
      integer, parameter :: nosigf  = 61
      integer, parameter :: nosfcf  = 62
      integer, parameter :: noflxf  = 63
      integer, parameter :: nod3df  = 64
      integer, parameter :: noaerf  = 65    ! for g2d_fld
!hchuang code change [+1L]
      integer, parameter :: nog3df  = 69
      integer, parameter :: nologf  = 99
 
!  --- ...  in/out units
 
      integer, parameter :: niofrad = 16
 
!
!........................................!
      end module module_iounitdef        !
!========================================!