source: LMDZ4/trunk/libf/dyn3d/comgeom2.h @ 5434

Last change on this file since 5434 was 1107, checked in by lguez, 16 years ago

"comconst.h" and "comgeom2.h" are now both fixed and free form.
Removed calls to procedure "flush".
Corrected kinds of constants which appeared as arguments to "min" or
"max" (all arguments are now of the same type and kind).
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.9 KB
RevLine 
[524]1!
2! $Header$
3!
[1107]4!CDK comgeom2
5      COMMON/comgeom/                                                   &
6     & cu(iip1,jjp1),cv(iip1,jjm),unscu2(iip1,jjp1),unscv2(iip1,jjm)  , &
7     & aire(iip1,jjp1),airesurg(iip1,jjp1),aireu(iip1,jjp1)           , &
8     & airev(iip1,jjm),unsaire(iip1,jjp1),apoln,apols                 , &
9     & unsairez(iip1,jjm),airuscv2(iip1,jjm),airvscu2(iip1,jjm)       , &
10     & aireij1(iip1,jjp1),aireij2(iip1,jjp1),aireij3(iip1,jjp1)       , &
11     & aireij4(iip1,jjp1),alpha1(iip1,jjp1),alpha2(iip1,jjp1)         , &
12     & alpha3(iip1,jjp1),alpha4(iip1,jjp1),alpha1p2(iip1,jjp1)        , &
13     & alpha1p4(iip1,jjp1),alpha2p3(iip1,jjp1),alpha3p4(iip1,jjp1)    , &
14     & fext(iip1,jjm),constang(iip1,jjp1), rlatu(jjp1),rlatv(jjm),      &
15     & rlonu(iip1),rlonv(iip1),cuvsurcv(iip1,jjm),cvsurcuv(iip1,jjm)  , &
16     & cvusurcu(iip1,jjp1),cusurcvu(iip1,jjp1)                        , &
17     & cuvscvgam1(iip1,jjm),cuvscvgam2(iip1,jjm),cvuscugam1(iip1,jjp1), &
18     & cvuscugam2(iip1,jjp1),cvscuvgam(iip1,jjm),cuscvugam(iip1,jjp1) , &
19     & unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2                , &
20     & unsair_gam1(iip1,jjp1),unsair_gam2(iip1,jjp1)                  , &
21     & unsairz_gam(iip1,jjm),aivscu2gam(iip1,jjm),aiuscv2gam(iip1,jjm)  &
22     & , xprimu(iip1),xprimv(iip1)
[524]23
[1107]24
25      REAL                                                               &
26     & cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,apoln,apols,unsaire &
27     & ,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4     , &
28     & alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 , &
29     & fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2     , &
30     & cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1           , &
31     & unsapolnga2,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2     , &
32     & unsairz_gam,aivscu2gam,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu    , &
33     & cusurcvu,xprimu,xprimv
Note: See TracBrowser for help on using the repository browser.