Ignore:
Timestamp:
Feb 24, 2009, 4:07:48 PM (16 years ago)
Author:
lguez
Message:

"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).

Location:
LMDZ4/trunk/libf/dyn3dpar
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/comconst.h

    r774 r1107  
    22! $Header$
    33!
    4 c-----------------------------------------------------------------------
    5 c INCLUDE comconst.h
     4!-----------------------------------------------------------------------
     5! INCLUDE comconst.h
    66
    7       COMMON/comconst/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,
    8      * dtvr,daysec,
    9      * pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg
     7      COMMON/comconst/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,           &
     8     & dtvr,daysec,                                                     &
     9     & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg
    1010
    1111      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
    … …  
    1414      REAL cotot,unsim,g,omeg
    1515
    16 c-----------------------------------------------------------------------
     16!-----------------------------------------------------------------------

  • LMDZ4/trunk/libf/dyn3dpar/comgeom2.h

    r774 r1107  
    22! $Header$
    33!
    4 *CDK comgeom2
    5       COMMON/comgeom/
    6      1 cu(iip1,jjp1),cv(iip1,jjm),unscu2(iip1,jjp1),unscv2(iip1,jjm)  ,
    7      2 aire(iip1,jjp1),airesurg(iip1,jjp1),aireu(iip1,jjp1)           ,
    8      3 airev(iip1,jjm),unsaire(iip1,jjp1),apoln,apols                 , 
    9      4 unsairez(iip1,jjm),airuscv2(iip1,jjm),airvscu2(iip1,jjm)       ,
    10      5 aireij1(iip1,jjp1),aireij2(iip1,jjp1),aireij3(iip1,jjp1)       ,
    11      6 aireij4(iip1,jjp1),alpha1(iip1,jjp1),alpha2(iip1,jjp1)         ,
    12      7 alpha3(iip1,jjp1),alpha4(iip1,jjp1),alpha1p2(iip1,jjp1)        ,
    13      8 alpha1p4(iip1,jjp1),alpha2p3(iip1,jjp1),alpha3p4(iip1,jjp1)    ,
    14      9 fext(iip1,jjm),constang(iip1,jjp1), rlatu(jjp1),rlatv(jjm),
    15      1 rlonu(iip1),rlonv(iip1),cuvsurcv(iip1,jjm),cvsurcuv(iip1,jjm)  ,
    16      1 cvusurcu(iip1,jjp1),cusurcvu(iip1,jjp1)                        ,
    17      2 cuvscvgam1(iip1,jjm),cuvscvgam2(iip1,jjm),cvuscugam1(iip1,jjp1),
    18      3 cvuscugam2(iip1,jjp1),cvscuvgam(iip1,jjm),cuscvugam(iip1,jjp1) ,
    19      4 unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2                ,
    20      5 unsair_gam1(iip1,jjp1),unsair_gam2(iip1,jjp1)                  ,
    21      6 unsairz_gam(iip1,jjm),aivscu2gam(iip1,jjm),aiuscv2gam(iip1,jjm)
    22      7 , xprimu(iip1),xprimv(iip1)
     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)
    2323
    24 c
    25       REAL
    26      1 cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,apoln,apols,unsaire
    27      2 ,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4     ,
    28      3 alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 ,
    29      4 fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2     ,
    30      5 cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1           ,
    31      6 unsapolnga2,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2     ,
    32      7 unsairz_gam,aivscu2gam,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu    ,
    33      8 cusurcvu,xprimu,xprimv
    34 c
     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 TracChangeset for help on using the changeset viewer.