source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_comgeom2.f90 @ 5319

Last change on this file since 5319 was 5159, checked in by abarral, 3 months ago

Put dimensions.h and paramet.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 lmdz_comgeom.f90 !
4! See lmdz_comgeom.f90 comment.
5
6MODULE lmdz_comgeom2
7  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
8  USE lmdz_paramet
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
21
22
23  COMMON/comgeom/                                                   &
24          cu(iip1, jjp1), cv(iip1, jjm), unscu2(iip1, jjp1), unscv2(iip1, jjm), &
25          aire(iip1, jjp1), airesurg(iip1, jjp1), aireu(iip1, jjp1), &
26          airev(iip1, jjm), unsaire(iip1, jjp1), apoln, apols, &
27          unsairez(iip1, jjm), airuscv2(iip1, jjm), airvscu2(iip1, jjm), &
28          aireij1(iip1, jjp1), aireij2(iip1, jjp1), aireij3(iip1, jjp1), &
29          aireij4(iip1, jjp1), alpha1(iip1, jjp1), alpha2(iip1, jjp1), &
30          alpha3(iip1, jjp1), alpha4(iip1, jjp1), alpha1p2(iip1, jjp1), &
31          alpha1p4(iip1, jjp1), alpha2p3(iip1, jjp1), alpha3p4(iip1, jjp1), &
32          fext(iip1, jjm), constang(iip1, jjp1), rlatu(jjp1), rlatv(jjm), &
33          rlonu(iip1), rlonv(iip1), cuvsurcv(iip1, jjm), cvsurcuv(iip1, jjm), &
34          cvusurcu(iip1, jjp1), cusurcvu(iip1, jjp1), &
35          cuvscvgam1(iip1, jjm), cuvscvgam2(iip1, jjm), cvuscugam1(iip1, jjp1), &
36          cvuscugam2(iip1, jjp1), cvscuvgam(iip1, jjm), cuscvugam(iip1, jjp1), &
37          unsapolnga1, unsapolnga2, unsapolsga1, unsapolsga2, &
38          unsair_gam1(iip1, jjp1), unsair_gam2(iip1, jjp1), &
39          unsairz_gam(iip1, jjm), aivscu2gam(iip1, jjm), aiuscv2gam(iip1, jjm)  &
40          , xprimu(iip1), xprimv(iip1)
41
42  REAL                                                               &
43          cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, apoln, apols, unsaire &
44          , unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, &
45          alpha1, alpha2, alpha3, alpha4, alpha1p2, alpha1p4, alpha2p3, alpha3p4, &
46          fext, constang, rlatu, rlatv, rlonu, rlonv, cuvscvgam1, cuvscvgam2, &
47          cvuscugam1, cvuscugam2, cvscuvgam, cuscvugam, unsapolnga1, &
48          unsapolnga2, unsapolsga1, unsapolsga2, unsair_gam1, unsair_gam2, &
49          unsairz_gam, aivscu2gam, aiuscv2gam, cuvsurcv, cvsurcuv, cvusurcu, &
50          cusurcvu, xprimu, xprimv
51
52END MODULE lmdz_comgeom2
Note: See TracBrowser for help on using the repository browser.