source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_comgeom.f90 @ 5136

Last change on this file since 5136 was 5136, checked in by abarral, 8 weeks ago

Put 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: 1.8 KB
Line 
1! Replaces comgeom.h
2
3MODULE lmdz_comgeom
4  IMPLICIT NONE; PRIVATE
5  PUBLIC cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, unsaire, apoln, &
6          apols, unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, &
7          alpha1, alpha2, alpha3, alpha4, alpha1p2, alpha1p4, alpha2p3, alpha3p4, &
8          fext, constang, rlatu, rlatv, rlonu, rlonv, cuvscvgam1, cuvscvgam2, &
9          cvuscugam1, cvuscugam2, cvscuvgam, cuscvugam, unsapolnga1, unsapolnga2&
10          , unsapolsga1, unsapolsga2, unsair_gam1, unsair_gam2, unsairz_gam, &
11          aivscu2gam, aiuscv2gam, cuvsurcv, cvsurcuv, cvusurcu, cusurcvu, xprimu&
12          , xprimv
13
14  INCLUDE "dimensions.h"
15  INCLUDE "paramet.h"
16  REAL cu(ip1jmp1), cv(ip1jm), unscu2(ip1jmp1), unscv2(ip1jm), &
17          aire(ip1jmp1), airesurg(ip1jmp1), aireu(ip1jmp1), &
18          airev(ip1jm), unsaire(ip1jmp1), apoln, apols, &
19          unsairez(ip1jm), airuscv2(ip1jm), airvscu2(ip1jm), &
20          aireij1(ip1jmp1), aireij2(ip1jmp1), aireij3(ip1jmp1), &
21          aireij4(ip1jmp1), alpha1(ip1jmp1), alpha2(ip1jmp1), &
22          alpha3(ip1jmp1), alpha4(ip1jmp1), alpha1p2(ip1jmp1), &
23          alpha1p4(ip1jmp1), alpha2p3(ip1jmp1), alpha3p4(ip1jmp1), &
24          fext(ip1jm), constang(ip1jmp1), rlatu(jjp1), rlatv(jjm), &
25          rlonu(iip1), rlonv(iip1), cuvsurcv(ip1jm), cvsurcuv(ip1jm), &
26          cvusurcu(ip1jmp1), cusurcvu(ip1jmp1), cuvscvgam1(ip1jm), &
27          cuvscvgam2(ip1jm), cvuscugam1(ip1jmp1), &
28          cvuscugam2(ip1jmp1), cvscuvgam(ip1jm), cuscvugam(ip1jmp1), &
29          unsapolnga1, unsapolnga2, unsapolsga1, unsapolsga2, &
30          unsair_gam1(ip1jmp1), unsair_gam2(ip1jmp1), unsairz_gam(ip1jm), &
31          aivscu2gam(ip1jm), aiuscv2gam(ip1jm), xprimu(iip1), xprimv(iip1)
32
33END MODULE lmdz_comgeom
34
Note: See TracBrowser for help on using the repository browser.