source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/setup_dims_mod.F90

Last change on this file was 3331, checked in by acozic, 7 years ago

Add modification for isotopes

  • Property svn:executable set to *
File size: 703 bytes
Line 
1MODULE SETUP_DIMS_MOD
2CONTAINS
3SUBROUTINE SETUP_DIMS
4
5USE PARKIND1  ,ONLY : JPIM     ,JPRB
6
7USE TPM_DIM
8
9IMPLICIT NONE
10
11INTEGER(KIND=JPIM) :: JM,JN,ISPOLEG
12
13!     ------------------------------------------------------------------
14
15ISPOLEG = 0
16DO JM=0,R%NSMAX
17  DO JN=JM,R%NTMAX+1
18    ISPOLEG = ISPOLEG+1
19  ENDDO
20ENDDO
21R%NSPOLEG = ISPOLEG
22
23R%NSPEC_G = (R%NSMAX+1)*(R%NSMAX+2)/2
24R%NSPEC2_G = R%NSPEC_G*2
25
26R%NDGNH = (R%NDGL+1)/2
27
28R%NLEI1 = R%NSMAX+4+MOD(R%NSMAX+4+1,2)
29R%NLEI3 = R%NDGNH+MOD(R%NDGNH+2,2)
30
31R%NLED3 = R%NTMAX+2+MOD(R%NTMAX+3,2)
32R%NLED4 = R%NTMAX+3+MOD(R%NTMAX+4,2)
33
34!     ------------------------------------------------------------------
35
36END SUBROUTINE SETUP_DIMS
37END MODULE SETUP_DIMS_MOD
Note: See TracBrowser for help on using the repository browser.