yomrcoef.F90

Go to the documentation of this file.

MODULE yomrcoef

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!   -----------------------------------------------------------------

!*   Logical switches for writing and reading the radiation coefficients
!    in file or in core

!    LRCOEF                       : switch for write out and read
!                                   the radiation coefficients in file

!*   Logical switch connected with the simplified radiation

!    LTLADDIA    : switch for using diabatic adjoint and then reading
!                  rad.coef. at each time step when LRAYSP
!    LGLOBRAD    : switch to compute the global mean for the thermal
!                  radiation matrix

!*   Number of arrays for radiation coefficients

!    NG3SR                        : number of 3D fields (NFLEVG)
!    NGMTR                        : number of matrices (0:NFLEVG,0:NFLEVG)
!    NLATWR                       : number of latitude to be written
!    NLATRD                       : number of latitude to be read

!*   Packing factors and mio package files

!    NPCKFSR                      : packing factor for 3D fields
!    NPCKFTHR                     : packing factor for matrices
!    NEXPBSR                      : number of bits used for exponent when
!                                   packing
!    NEXPBTHR                     : number of bits used for exponent when
!                                   packing

!*   Buffer for radiation coefficients

!    NLENGSRB                       : length of buffer for 3D solar radiation
!                                     coefficients and correction for thermal
!                                     radiation
!    NLENGTRB                       : length of buffer for matrix of thermal
!                                     radiation coefficients
!    SOLRAD(NLENGSRB)               : buffer for 3D fields
!    THERRAD(NSLBR/NGPBLKS/1,NLENGTRB): buffer for matrix
!                                     for 3D fields

!*   Buffer for simplified thermal radiation

!    TRWEIGHT(NFLEVG+1,NFLEVG+1) : buffer for sum of mean weights
!                                  for the whole domain
!    TRMATSUM(NFLEVG+1,NFLEVG+1) : buffer for sum of thermal radiation
!                                  matrices for the whole domain

LOGICAL :: lrcoef
LOGICAL :: ltladdia
LOGICAL :: lglobrad

INTEGER(KIND=JPIM) :: ng3sr
INTEGER(KIND=JPIM) :: ngmtr
INTEGER(KIND=JPIM) :: nlatwr
INTEGER(KIND=JPIM) :: nlatrd

INTEGER(KIND=JPIM) :: npckfsr
INTEGER(KIND=JPIM) :: npckfthr
INTEGER(KIND=JPIM) :: nexpbsr
INTEGER(KIND=JPIM) :: nexpbthr

INTEGER(KIND=JPIM) :: nlengsrb
INTEGER(KIND=JPIM) :: nlengtrb

REAL(KIND=JPRB),ALLOCATABLE:: solrad(:)
REAL(KIND=JPRB),ALLOCATABLE:: therrad(:,:)

REAL(KIND=JPRB),ALLOCATABLE:: trweight(:,:)
REAL(KIND=JPRB),ALLOCATABLE:: trmatsum(:,:)

!   ----------------------------------------------------------------
!$OMP THREADPRIVATE(lglobrad,lrcoef,ltladdia,nexpbsr,nexpbthr,ng3sr,ngmtr,nlatrd,nlatwr,nlengsrb)
!$OMP THREADPRIVATE(nlengtrb,npckfsr,npckfthr)
!$OMP THREADPRIVATE(solrad,therrad,trmatsum,trweight)
END MODULE yomrcoef