source: LMDZ6/trunk/libf/dyn3d_common/comgeom2_mod_h.f90 @ 5408

Last change on this file since 5408 was 5281, checked in by abarral, 7 weeks ago

Turn comgeom.h comgeom2.h into modules
  • 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
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.8 KB
Line 
1! Replaces comgeom2.h
2
3! AB 07/24: NOTE: THIS USES A LEGACY COMMON BLOCK SHARED WITH comgeom_mod_h.f90 !
4! See comgeom_mod_h.f90 comment.
5
6MODULE comgeom2_mod_h
7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
8  USE paramet_mod_h
9  IMPLICIT NONE; PRIVATE
10  PUBLIC                                                               &
11          cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, apoln, apols, unsaire &
12          , unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, &
13          alpha1, alpha2, alpha3, alpha4, alpha1p2, alpha1p4, alpha2p3, alpha3p4, &
14          fext, constang, rlatu, rlatv, rlonu, rlonv, cuvscvgam1, cuvscvgam2, &
15          cvuscugam1, cvuscugam2, cvscuvgam, cuscvugam, unsapolnga1, &
16          unsapolnga2, unsapolsga1, unsapolsga2, unsair_gam1, unsair_gam2, &
17          unsairz_gam, aivscu2gam, aiuscv2gam, cuvsurcv, cvsurcuv, cvusurcu, &
18          cusurcvu, xprimu, xprimv
19
20  COMMON/comgeom/                                                   &
21          cu(iip1, jjp1), cv(iip1, jjm), unscu2(iip1, jjp1), unscv2(iip1, jjm), &
22          aire(iip1, jjp1), airesurg(iip1, jjp1), aireu(iip1, jjp1), &
23          airev(iip1, jjm), unsaire(iip1, jjp1), apoln, apols, &
24          unsairez(iip1, jjm), airuscv2(iip1, jjm), airvscu2(iip1, jjm), &
25          aireij1(iip1, jjp1), aireij2(iip1, jjp1), aireij3(iip1, jjp1), &
26          aireij4(iip1, jjp1), alpha1(iip1, jjp1), alpha2(iip1, jjp1), &
27          alpha3(iip1, jjp1), alpha4(iip1, jjp1), alpha1p2(iip1, jjp1), &
28          alpha1p4(iip1, jjp1), alpha2p3(iip1, jjp1), alpha3p4(iip1, jjp1), &
29          fext(iip1, jjm), constang(iip1, jjp1), rlatu(jjp1), rlatv(jjm), &
30          rlonu(iip1), rlonv(iip1), cuvsurcv(iip1, jjm), cvsurcuv(iip1, jjm), &
31          cvusurcu(iip1, jjp1), cusurcvu(iip1, jjp1), &
32          cuvscvgam1(iip1, jjm), cuvscvgam2(iip1, jjm), cvuscugam1(iip1, jjp1), &
33          cvuscugam2(iip1, jjp1), cvscuvgam(iip1, jjm), cuscvugam(iip1, jjp1), &
34          unsapolnga1, unsapolnga2, unsapolsga1, unsapolsga2, &
35          unsair_gam1(iip1, jjp1), unsair_gam2(iip1, jjp1), &
36          unsairz_gam(iip1, jjm), aivscu2gam(iip1, jjm), aiuscv2gam(iip1, jjm)  &
37          , xprimu(iip1), xprimv(iip1)
38
39  REAL                                                               &
40          cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, apoln, apols, unsaire &
41          , unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, &
42          alpha1, alpha2, alpha3, alpha4, alpha1p2, alpha1p4, alpha2p3, alpha3p4, &
43          fext, constang, rlatu, rlatv, rlonu, rlonv, cuvscvgam1, cuvscvgam2, &
44          cvuscugam1, cvuscugam2, cvscuvgam, cuscvugam, unsapolnga1, &
45          unsapolnga2, unsapolsga1, unsapolsga2, unsair_gam1, unsair_gam2, &
46          unsairz_gam, aivscu2gam, aiuscv2gam, cuvsurcv, cvsurcuv, cvusurcu, &
47          cusurcvu, xprimu, xprimv
48
49END MODULE comgeom2_mod_h
Note: See TracBrowser for help on using the repository browser.