source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/setup_dims_mod.F90

Last change on this file was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
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.