Ignore:
Timestamp:
Oct 28, 2024, 11:17:48 AM (3 months ago)
Author:
abarral
Message:

Turn comgeom.h comgeom2.h into modules

Location:
LMDZ6/trunk/libf/dyn3d_common
Files:
58 edited
2 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/adaptdt.f90

    r5280 r5281  
    55        masse)
    66
     7  USE comgeom2_mod_h
    78  USE comdissip_mod_h
    89  USE comconst_mod, ONLY: dtvr
    … …  
    1415
    1516
    16   include "comgeom2.h"
    1717  include "description.h"
    1818

  • LMDZ6/trunk/libf/dyn3d_common/advn.F90

    r5272 r5281  
    1515  !
    1616  !   --------------------------------------------------------------------
     17  USE comgeom_mod_h
    1718  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1819USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2223
    2324
    24   include "comgeom.h"
    2525  include "iniprint.h"
    2626
    … …  
    759759  !
    760760  !   --------------------------------------------------------------------
     761  USE comgeom_mod_h
    761762  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    762763USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    766767
    767768
    768   INCLUDE "comgeom.h"
    769769  INCLUDE "iniprint.h"
    770770  !
    … …  
    893893  !
    894894  !   --------------------------------------------------------------------
     895  USE comgeom_mod_h
    895896  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    896897USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    900901
    901902
    902   INCLUDE "comgeom.h"
    903903  INCLUDE "iniprint.h"
    904904  !

  • LMDZ6/trunk/libf/dyn3d_common/advy.f90

    r5272 r5281  
    33!
    44SUBROUTINE advy(limit,dty,pbarv,sm,s0,sx,sy,sz)
     5  USE comgeom2_mod_h
    56  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    67USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    3132
    3233
    33   include "comgeom2.h"
    3434
    3535  !  Arguments :

  • LMDZ6/trunk/libf/dyn3d_common/advyp.f90

    r5272 r5281  
    44SUBROUTINE ADVYP(LIMIT,DTY,PBARV,SM,S0,SSX,SY,SZ &
    55        ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
     6  USE comgeom_mod_h
    67  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    78USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    3334
    3435
    35   include "comgeom.h"
    3636
    3737  !  Arguments :

  • LMDZ6/trunk/libf/dyn3d_common/advzp.f90

    r5272 r5281  
    55        ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
    66
     7  USE comgeom_mod_h
    78  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    3637
    3738
    38   include "comgeom.h"
    3939  !
    4040  !  Arguments :

  • LMDZ6/trunk/libf/dyn3d_common/caldyn0.f90

    r5272 r5281  
    66! Purpose: Compute dynamic tendencies.
    77!-------------------------------------------------------------------------------
    8   USE control_mod, ONLY: resetvarc
     8  USE comgeom_mod_h
     9  USE control_mod, ONLY: resetvarc
    910  USE comvert_mod, ONLY: ap, bp
    1011  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    1415
    1516
    16   include "comgeom.h"
    1717!===============================================================================
    1818! Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/comgeom2_mod_h.f90

    r5280 r5281  
    1 !
    2 ! $Header$
    3 !
    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)
     1! Replaces comgeom2.h
    232
     3! AB 07/24: NOTE: THIS USES A LEGACY COMMON BLOCK SHARED WITH comgeom_mod_h.f90 !
     4! See comgeom_mod_h.f90 comment.
    245
    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
     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

  • LMDZ6/trunk/libf/dyn3d_common/comgeom_mod_h.f90

    r5280 r5281  
    1 !
    2 ! $Header$
    3 !
    4 !CDK comgeom
    5       COMMON/comgeom/                                                   &
    6      & cu(ip1jmp1),cv(ip1jm),unscu2(ip1jmp1),unscv2(ip1jm),             &
    7      & aire(ip1jmp1),airesurg(ip1jmp1),aireu(ip1jmp1),                  &
    8      & airev(ip1jm),unsaire(ip1jmp1),apoln,apols,                       &
    9      & unsairez(ip1jm),airuscv2(ip1jm),airvscu2(ip1jm),                 &
    10      & aireij1(ip1jmp1),aireij2(ip1jmp1),aireij3(ip1jmp1),              &
    11      & aireij4(ip1jmp1),alpha1(ip1jmp1),alpha2(ip1jmp1),                &
    12      & alpha3(ip1jmp1),alpha4(ip1jmp1),alpha1p2(ip1jmp1),               &
    13      & alpha1p4(ip1jmp1),alpha2p3(ip1jmp1),alpha3p4(ip1jmp1),           &
    14      & fext(ip1jm),constang(ip1jmp1),rlatu(jjp1),rlatv(jjm),            &
    15      & rlonu(iip1),rlonv(iip1),cuvsurcv(ip1jm),cvsurcuv(ip1jm),         &
    16      & cvusurcu(ip1jmp1),cusurcvu(ip1jmp1),cuvscvgam1(ip1jm),           &
    17      & cuvscvgam2(ip1jm),cvuscugam1(ip1jmp1),                           &
    18      & cvuscugam2(ip1jmp1),cvscuvgam(ip1jm),cuscvugam(ip1jmp1),         &
    19      & unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2,                 &
    20      & unsair_gam1(ip1jmp1),unsair_gam2(ip1jmp1),unsairz_gam(ip1jm),    &
    21      & aivscu2gam(ip1jm),aiuscv2gam(ip1jm),xprimu(iip1),xprimv(iip1)
     1! Replaces comgeom.h
    222
    23 !
    24         REAL                                                            &
    25      & cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,unsaire,apoln     ,&
    26      & apols,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4,&
    27      & alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 ,&
    28      & fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2     ,&
    29      & cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1,unsapolnga2&
    30      & ,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2,unsairz_gam    ,&
    31      & aivscu2gam ,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu,cusurcvu,xprimu&
    32      & , xprimv
    33 !
     3! AB 07/24: NOTE: THIS USES A LEGACY COMMON BLOCK SHARED WITH comgeom2_mod_h.f90 !
     4! This file defines a number of 1D arrays.
     5! The COMMON block is used to transparently (but using unsafe procedures) cast those as 2D arrays, without duplication.
     6! Therefore there's no trivial way to turn this into a module without COMMON.
     7! In the future we'd still like to get rid of this COMMON block.
     8
     9MODULE comgeom_mod_h
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11  USE paramet_mod_h
     12  IMPLICIT NONE; PRIVATE
     13  PUBLIC cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, unsaire, apoln, &
     14          apols, unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, &
     15          alpha1, alpha2, alpha3, alpha4, alpha1p2, alpha1p4, alpha2p3, alpha3p4, &
     16          fext, constang, rlatu, rlatv, rlonu, rlonv, cuvscvgam1, cuvscvgam2, &
     17          cvuscugam1, cvuscugam2, cvscuvgam, cuscvugam, unsapolnga1, unsapolnga2&
     18          , unsapolsga1, unsapolsga2, unsair_gam1, unsair_gam2, unsairz_gam, &
     19          aivscu2gam, aiuscv2gam, cuvsurcv, cvsurcuv, cvusurcu, cusurcvu, xprimu&
     20          , xprimv
     21
     22  COMMON/comgeom/                                                   &
     23          cu(ip1jmp1), cv(ip1jm), unscu2(ip1jmp1), unscv2(ip1jm), &
     24          aire(ip1jmp1), airesurg(ip1jmp1), aireu(ip1jmp1), &
     25          airev(ip1jm), unsaire(ip1jmp1), apoln, apols, &
     26          unsairez(ip1jm), airuscv2(ip1jm), airvscu2(ip1jm), &
     27          aireij1(ip1jmp1), aireij2(ip1jmp1), aireij3(ip1jmp1), &
     28          aireij4(ip1jmp1), alpha1(ip1jmp1), alpha2(ip1jmp1), &
     29          alpha3(ip1jmp1), alpha4(ip1jmp1), alpha1p2(ip1jmp1), &
     30          alpha1p4(ip1jmp1), alpha2p3(ip1jmp1), alpha3p4(ip1jmp1), &
     31          fext(ip1jm), constang(ip1jmp1), rlatu(jjp1), rlatv(jjm), &
     32          rlonu(iip1), rlonv(iip1), cuvsurcv(ip1jm), cvsurcuv(ip1jm), &
     33          cvusurcu(ip1jmp1), cusurcvu(ip1jmp1), cuvscvgam1(ip1jm), &
     34          cuvscvgam2(ip1jm), cvuscugam1(ip1jmp1), &
     35          cvuscugam2(ip1jmp1), cvscuvgam(ip1jm), cuscvugam(ip1jmp1), &
     36          unsapolnga1, unsapolnga2, unsapolsga1, unsapolsga2, &
     37          unsair_gam1(ip1jmp1), unsair_gam2(ip1jmp1), unsairz_gam(ip1jm), &
     38          aivscu2gam(ip1jm), aiuscv2gam(ip1jm), xprimu(iip1), xprimv(iip1)
     39
     40  REAL                                                            &
     41          cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, unsaire, apoln, &
     42          apols, unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, &
     43          alpha1, alpha2, alpha3, alpha4, alpha1p2, alpha1p4, alpha2p3, alpha3p4, &
     44          fext, constang, rlatu, rlatv, rlonu, rlonv, cuvscvgam1, cuvscvgam2, &
     45          cvuscugam1, cvuscugam2, cvscuvgam, cuscvugam, unsapolnga1, unsapolnga2&
     46          , unsapolsga1, unsapolsga2, unsair_gam1, unsair_gam2, unsairz_gam, &
     47          aivscu2gam, aiuscv2gam, cuvsurcv, cvsurcuv, cvusurcu, cusurcvu, xprimu&
     48          , xprimv
     49
     50END MODULE comgeom_mod_h
     51

  • LMDZ6/trunk/libf/dyn3d_common/convflu.f90

    r5272 r5281  
    1818  ! nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
    1919  !
     20  USE comgeom_mod_h
    2021  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2122USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    3334  !
    3435  !
    35   INCLUDE "comgeom.h"
    3636  !
    3737  DO l = 1,nbniv

  • LMDZ6/trunk/libf/dyn3d_common/convmas.f90

    r5272 r5281  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute mass flux convergence at p levels.
     7  USE comgeom_mod_h
    78  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1112
    1213
    13   include "comgeom.h"
    1414!===============================================================================
    1515! Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/coordij.f90

    r5272 r5281  
    1111  !=======================================================================
    1212
     13  USE comgeom_mod_h
    1314  USE comconst_mod, ONLY: pi
    1415
    … …  
    2324
    2425
    25   include "comgeom.h"
    2626
    2727  real :: zlon,zlat

  • LMDZ6/trunk/libf/dyn3d_common/covcont.f90

    r5272 r5281  
    66! Purpose: Compute contravariant components from covariant components.
    77!-------------------------------------------------------------------------------
     8  USE comgeom_mod_h
    89  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    910USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1213
    1314
    14   include "comgeom.h"
    1515!===============================================================================
    1616! Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/diagedyn.f90

    r5274 r5281  
    5353  !======================================================================
    5454
     55  USE comgeom_mod_h
    5556  USE control_mod, ONLY : planet_type
    5657
    … …  
    6263
    6364
    64   INCLUDE "comgeom.h"
    6565  INCLUDE "iniprint.h"
    6666

  • LMDZ6/trunk/libf/dyn3d_common/diverg.f90

    r5272 r5281  
    1111  !          x et y  etant des composantes covariantes   ...
    1212  !  *********************************************************************
     13  USE comgeom_mod_h
    1314  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1415USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2728
    2829
    29   INCLUDE "comgeom.h"
    3030  !
    3131  !    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3d_common/diverg_gam.f90

    r5272 r5281  
    1212  !          x et y  etant des composantes covariantes   ...
    1313  !  *********************************************************************
     14  USE comgeom_mod_h
    1415  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1516USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2829
    2930
    30   INCLUDE "comgeom.h"
    3131  !
    3232  !    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3d_common/divergf.f90

    r5272 r5281  
    1111  !          x et y  etant des composantes covariantes   ...
    1212  !  *********************************************************************
     13  USE comgeom_mod_h
    1314  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1415USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2728
    2829
    29   INCLUDE "comgeom.h"
    3030  !
    3131  !    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3d_common/divergst.f90

    r5272 r5281  
    33!
    44SUBROUTINE divergst(klevel,x,y,div)
     5  USE comgeom_mod_h
    56  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    67  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2122  !   -------------------------------------------------------------------
    2223  !
    23   INCLUDE "comgeom.h"
    2424
    2525  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d_common/divgrad.f90

    r5280 r5281  
    33!
    44SUBROUTINE divgrad (klevel,h, lh, divgra )
     5  USE comgeom_mod_h
    56  USE comdissipn_mod_h
    67  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    2627
    2728
    28   include "comgeom.h"
    2929  !
    3030  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d_common/divgrad2.f90

    r5280 r5281  
    1313  !     divgra     est  un argument  de sortie pour le s-prg
    1414  !
     15  USE comgeom2_mod_h
    1516  USE comdissipn_mod_h
    1617  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    2122
    2223
    23   INCLUDE "comgeom2.h"
    2424
    2525  !    .......    variables en arguments   .......

  • LMDZ6/trunk/libf/dyn3d_common/enercin.f90

    r5272 r5281  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute kinetic energy at sigma levels.
     7  USE comgeom_mod_h
    78  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1112
    1213
    13   include "comgeom.h"
    1414!===============================================================================
    1515! Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/exner_hyb_m.f90

    r5272 r5281  
    11module exner_hyb_m
    22
    3   IMPLICIT NONE
     3  USE comgeom_mod_h
     4    IMPLICIT NONE
    45
    56contains
    … …  
    1415    !
    1516    !   ************************************************************************
    16     !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
     17    !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des
    1718    !    couches .   Pk(l) sera calcule aux milieux  des couches l ,entre les
    1819    !    pressions p(l) et p(l+1) ,definis aux interfaces des llm couches .
    … …  
    2627    !    ( voir note de Fr.Hourdin )  ,
    2728    !
    28     !    on determine successivement , du haut vers le bas des couches, les 
    29     !    coef. alpha(llm),beta(llm) .,.,alpha(l),beta(l),,,alpha(2),beta(2), 
    30     !    puis pk(ij,1). Ensuite ,on calcule,du bas vers le haut des couches, 
     29    !    on determine successivement , du haut vers le bas des couches, les
     30    !    coef. alpha(llm),beta(llm) .,.,alpha(l),beta(l),,,alpha(2),beta(2),
     31    !    puis pk(ij,1). Ensuite ,on calcule,du bas vers le haut des couches,
    3132    !     pk(ij,l)  donne  par la relation (2),  pour l = 2 a l = llm .
    3233    !
    … …  
    3536    USE comconst_mod, ONLY: jmp1, cpp, kappa, r
    3637    USE comvert_mod, ONLY: preff
    37    
     38
    3839    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3940USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    4344
    4445
    45     include "comgeom.h"
    4646
    4747    INTEGER  ngrid

  • LMDZ6/trunk/libf/dyn3d_common/exner_milieu_m.f90

    r5272 r5281  
    11module exner_milieu_m
    22
    3   IMPLICIT NONE
     3  USE comgeom_mod_h
     4    IMPLICIT NONE
    45
    56contains
    … …  
    1516    !
    1617    !   ************************************************************************
    17     !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
     18    !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des
    1819    !    couches .   Pk(l) sera calcule aux milieux  des couches l ,entre les
    1920    !    pressions p(l) et p(l+1) ,definis aux interfaces des llm couches .
    … …  
    2324    !
    2425    !     WARNING : CECI est une version speciale de exner_hyb originale
    25     !               Utilise dans la version martienne pour pouvoir 
     26    !               Utilise dans la version martienne pour pouvoir
    2627    !               tourner avec des coordonnees verticales complexe
    27     !              => Il ne verifie PAS la condition la proportionalite en 
     28    !              => Il ne verifie PAS la condition la proportionalite en
    2829    !              energie totale/ interne / potentielle (F.Forget 2001)
    2930    !    ( voir note de Fr.Hourdin )  ,
    … …  
    3233    USE comconst_mod, ONLY: jmp1, cpp, kappa, r
    3334    USE comvert_mod, ONLY: preff
    34    
     35
    3536    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3637USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    4041
    4142
    42     include "comgeom.h"
    4343
    4444    INTEGER  ngrid

  • LMDZ6/trunk/libf/dyn3d_common/flumass.f90

    r5272 r5281  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute mass flux at s levels.
     7  USE comgeom_mod_h
    78  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1112
    1213
    13   include "comgeom.h"
    1414!===============================================================================
    1515! Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/gr_u_scal.f90

    r5272 r5281  
    2525  !
    2626  !=======================================================================
     27  USE comgeom_mod_h
    2728  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2829USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    3536
    3637
    37   INCLUDE "comgeom.h"
    3838
    3939  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/gr_v_scal.f90

    r5272 r5281  
    2525  !
    2626  !=======================================================================
     27  USE comgeom_mod_h
    2728  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2829USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    3536
    3637
    37   INCLUDE "comgeom.h"
    3838
    3939  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/gradiv2.f90

    r5280 r5281  
    1616  !
    1717  !
     18  USE comgeom_mod_h
    1819  USE comdissipn_mod_h
    1920  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    2425
    2526
    26   INCLUDE "comgeom.h"
    2727  !
    2828  ! ........    variables en arguments      ........

  • LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.f90

    r5272 r5281  
    1212SUBROUTINE grilles_gcm_netcdf_sub(masque,phis)
    1313
     14  USE comgeom_mod_h
    1415  USE comconst_mod, ONLY: cpp, kappa, g, omeg, daysec, rad, pi
    1516  USE comvert_mod, ONLY: presnivs, preff, pa
    1617  USE netcdf, ONLY: nf90_def_var, nf90_int, nf90_float, nf90_put_var, nf90_clobber, nf90_64bit_offset, nf90_def_dim, &
    1718          nf90_put_att, nf90_enddef, nf90_create
    18  
     19
    1920  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2021USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2425
    2526
    26   INCLUDE "comgeom.h"
    2727
    2828!========================

  • LMDZ6/trunk/libf/dyn3d_common/inigeom.f90

    r5280 r5281  
    1616  !
    1717  !
     18  USE comgeom2_mod_h
    1819  USE comdissnew_mod_h
    1920  use fxhyp_m, only: fxhyp
    … …  
    3031
    3132
    32   include "comgeom2.h"
    3333
    3434  !-----------------------------------------------------------------------

  • LMDZ6/trunk/libf/dyn3d_common/initdynav.f90

    r5272 r5281  
    33subroutine initdynav(day0,anne0,tstep,t_ops,t_wrt)
    44
     5  USE comgeom_mod_h
    56  USE IOIPSL
    67  USE infotrac, ONLY : nqtot
    … …  
    1011  USE comvert_mod, ONLY: presnivs
    1112  USE temps_mod, ONLY: itau_dyn
    12  
     13
    1314  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1415USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    3940
    4041
    41   include "comgeom.h"
    4242  include "description.h"
    4343  include "iniprint.h"

  • LMDZ6/trunk/libf/dyn3d_common/initfluxsto.f90

    r5272 r5281  
    66        fileid,filevid,filedid)
    77
    8    USE IOIPSL
     8   USE comgeom_mod_h
     9  USE IOIPSL
    910  USE comconst_mod, ONLY: pi
    1011  USE comvert_mod, ONLY: nivsigs
    … …  
    4546
    4647
    47   include "comgeom.h"
    4848  include "description.h"
    4949  include "iniprint.h"

  • LMDZ6/trunk/libf/dyn3d_common/inithist.f90

    r5272 r5281  
    44subroutine inithist(day0,anne0,tstep,t_ops,t_wrt)
    55
    6    USE IOIPSL
     6   USE comgeom_mod_h
     7  USE IOIPSL
    78   USE infotrac, ONLY : nqtot
    89   use com_io_dyn_mod, only : histid,histvid,histuid,               &
    … …  
    4445
    4546
    46   include "comgeom.h"
    4747  include "description.h"
    4848  include "iniprint.h"

  • LMDZ6/trunk/libf/dyn3d_common/inter_barxy_m.f90

    r5272 r5281  
    66  ! Authors: Robert SADOURNY, Phu LE VAN, Lionel GUEZ
    77
    8   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8  USE comgeom2_mod_h
     9    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    910USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1011          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    … …  
    2728    ! (for other included files)
    2829
    29     include "comgeom2.h"
    3030    ! (for "aire", "apoln", "apols")
    3131

  • LMDZ6/trunk/libf/dyn3d_common/interpost.f90

    r5272 r5281  
    44  subroutine interpost(q,qppm)
    55
    6    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6   USE comgeom2_mod_h
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    78USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    89          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    … …  
    1213
    1314
    14   include "comgeom2.h"
    1515
    1616  ! Arguments

  • LMDZ6/trunk/libf/dyn3d_common/interpre.f90

    r5280 r5281  
    66         unatppm,vnatppm,psppm)
    77
     8  USE comgeom2_mod_h
    89  USE comdissip_mod_h
    910  USE comconst_mod, ONLY: g
    … …  
    1718
    1819
    19   include "comgeom2.h"
    2020  include "description.h"
    2121

  • LMDZ6/trunk/libf/dyn3d_common/laplacien.f90

    r5272 r5281  
    1212  !  divgra     est  un argument  de sortie pour le s-prog
    1313  !
     14  USE comgeom_mod_h
    1415  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1516USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1920
    2021
    21   INCLUDE "comgeom.h"
    2222
    2323  !

  • LMDZ6/trunk/libf/dyn3d_common/laplacien_gam.f90

    r5272 r5281  
    1414  !  divgra     est  un argument  de sortie pour le s-prog
    1515  !
     16  USE comgeom_mod_h
    1617  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1718USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2122
    2223
    23   INCLUDE "comgeom.h"
    2424
    2525  !

  • LMDZ6/trunk/libf/dyn3d_common/laplacien_rot.f90

    r5272 r5281  
    1313  !  rotout           est  un argument  de sortie pour le s-prog
    1414  !
     15  USE comgeom_mod_h
    1516  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1617USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2021
    2122
    22   INCLUDE "comgeom.h"
    2323
    2424  !

  • LMDZ6/trunk/libf/dyn3d_common/laplacien_rotgam.f90

    r5272 r5281  
    1212  !  divgra     est  un argument  de sortie pour le s-prog
    1313  !
     14  USE comgeom_mod_h
    1415  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1516USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1920
    2021
    21   INCLUDE "comgeom.h"
    2222
    2323  !

  • LMDZ6/trunk/libf/dyn3d_common/limx.f90

    r5272 r5281  
    1313  !
    1414  !   --------------------------------------------------------------------
     15  USE comgeom_mod_h
    1516  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1617USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2021
    2122
    22   include "comgeom.h"
    2323  !
    2424  !

  • LMDZ6/trunk/libf/dyn3d_common/limy.f90

    r5272 r5281  
    1414  !
    1515  !   --------------------------------------------------------------------
     16  USE comgeom_mod_h
    1617  USE comconst_mod, ONLY: pi
    1718  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    2223
    2324
    24   include "comgeom.h"
    2525  !
    2626  !

  • LMDZ6/trunk/libf/dyn3d_common/limz.f90

    r5272 r5281  
    1313  !
    1414  !   --------------------------------------------------------------------
     15  USE comgeom_mod_h
    1516  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1617USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2021
    2122
    22   include "comgeom.h"
    2323  !
    2424  !

  • LMDZ6/trunk/libf/dyn3d_common/massbar.f90

    r5272 r5281  
    66! Purpose: Compute air mass mean along X and Y in each cell.
    77! See iniconst for more details.
     8  USE comgeom_mod_h
    89  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    910USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1213
    1314
    14   include "comgeom.h"
    1515!===============================================================================
    1616! Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/massbarxy.f90

    r5277 r5281  
    66! Purpose: Compute air mass mean along X and Y in each cell.
    77! See iniconst for more details.
     8  USE comgeom_mod_h
    89  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    910USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1213
    1314
    14   include "comgeom.h"
    1515!===============================================================================
    1616! Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/massdair.f90

    r5272 r5281  
    1616  !  ....  p est defini aux interfaces des llm couches   .....
    1717  !
     18  USE comgeom_mod_h
    1819  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1920USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2324
    2425
    25   include "comgeom.h"
    2626  !
    2727  !  .....   arguments  ....

  • LMDZ6/trunk/libf/dyn3d_common/nxgrad.f90

    r5272 r5281  
    1212  !   x  et y    sont des arguments de sortie pour le s-prog
    1313  !
     14  USE comgeom_mod_h
    1415  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1516USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1920
    2021
    21   INCLUDE "comgeom.h"
    2222  INTEGER :: klevel
    2323  REAL :: rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )

  • LMDZ6/trunk/libf/dyn3d_common/nxgrad_gam.f90

    r5272 r5281  
    1212  !   x  et y    sont des arguments de sortie pour le s-prog
    1313  !
     14  USE comgeom_mod_h
    1415  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1516USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1920
    2021
    21   INCLUDE "comgeom.h"
    2222  INTEGER :: klevel
    2323  REAL :: rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )

  • LMDZ6/trunk/libf/dyn3d_common/nxgradst.f90

    r5272 r5281  
    33!
    44SUBROUTINE nxgradst (klevel,rot, x, y )
     5  USE comgeom_mod_h
    56  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    67  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1617  !
    1718
    18   INCLUDE "comgeom.h"
    1919
    2020  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d_common/pbar.f90

    r5272 r5281  
    33!
    44SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy )
     5  USE comgeom_mod_h
    56  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    67  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    7778  !=======================================================================
    7879
    79   INCLUDE "comgeom.h"
    8080
    8181  REAL :: pext( ip1jmp1 ),  pbarx ( ip1jmp1 )

  • LMDZ6/trunk/libf/dyn3d_common/pentes_ini.f90

    r5272 r5281  
    33!
    44SUBROUTINE pentes_ini (q,w,masse,pbaru,pbarv,mode)
     5  USE comgeom2_mod_h
    56  USE comconst_mod, ONLY: pi, dtvr
    67  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    2425  !
    2526  !=======================================================================
    26   include "comgeom2.h"
    2727
    2828  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/prather.f90

    r5272 r5281  
    33!
    44SUBROUTINE prather (q,w,masse,pbaru,pbarv,nt,dt)
     5  USE comgeom2_mod_h
    56  USE comconst_mod, ONLY: pi
    67  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    2122  !
    2223  !=======================================================================
    23   include "comgeom2.h"
    2424
    2525  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/psextbar.f90

    r5272 r5281  
    33!
    44SUBROUTINE psextbar ( ps, psexbarxy )
     5  USE comgeom_mod_h
    56  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    67  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    7677  !
    7778  !=======================================================================
    78   INCLUDE "comgeom.h"
    7979
    8080  REAL :: ps( ip1jmp1 ), psexbarxy ( ip1jm ), pext( ip1jmp1 )

  • LMDZ6/trunk/libf/dyn3d_common/rotat.f90

    r5272 r5281  
    1313  !        rot          est  un argument  de sortie pour le s-prog
    1414  !
     15  USE comgeom_mod_h
    1516  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1617USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2021
    2122
    22   INCLUDE "comgeom.h"
    2323  !
    2424  !   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3d_common/rotat_nfil.f90

    r5272 r5281  
    1313  !        rot          est  un argument  de sortie pour le s-prog
    1414  !
     15  USE comgeom_mod_h
    1516  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1617USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2021
    2122
    22   INCLUDE "comgeom.h"
    2323  !
    2424  !   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3d_common/rotatf.f90

    r5272 r5281  
    1414  !        rot          est  un argument  de sortie pour le s-prog
    1515  !
     16  USE comgeom_mod_h
    1617  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1718USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2122
    2223
    23   INCLUDE "comgeom.h"
    2424  !
    2525  !   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3d_common/sortvarc.f90

    r5272 r5281  
    66        vcov )
    77
     8  USE comgeom_mod_h
    89  USE control_mod, ONLY: resetvarc
    910  USE comconst_mod, ONLY: dtvr, daysec, g, rad, omeg
    … …  
    3536
    3637
    37   INCLUDE "comgeom.h"
    3838  INCLUDE "iniprint.h"
    3939

  • LMDZ6/trunk/libf/dyn3d_common/tourpot.f90

    r5272 r5281  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute potential vorticity.
     7  USE comgeom_mod_h
    78  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1112
    1213
    13   include "comgeom.h"
    1414!===============================================================================
    1515! Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/traceurpole.f90

    r5280 r5281  
    44    subroutine traceurpole(q,masse)
    55
    6       USE comdissip_mod_h
     6      USE comgeom2_mod_h
     7  USE comdissip_mod_h
    78  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1213
    1314
    14   include "comgeom2.h"
    1515  include "description.h"
    1616

  • LMDZ6/trunk/libf/dyn3d_common/ugeostr.f90

    r5272 r5281  
    1111  ! levels are pressure levels.
    1212
     13  USE comgeom2_mod_h
    1314  use comconst_mod, only: omeg, rad
    14  
     15
    1516  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1617USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2021
    2122
    22   include "comgeom2.h"
    2323
    2424  real ucov(iip1,jjp1,llm),phi(iip1,jjp1,llm)

  • LMDZ6/trunk/libf/dyn3d_common/writedynav.f90

    r5272 r5281  
    33subroutine writedynav(time, vcov, ucov, teta, ppk, phi, q, masse, ps, phis)
    44
     5  USE comgeom_mod_h
    56  USE ioipsl
    67  USE infotrac, ONLY : nqtot
    … …  
    3334
    3435
    35   include "comgeom.h"
    3636  include "description.h"
    3737  include "iniprint.h"

  • LMDZ6/trunk/libf/dyn3d_common/writehist.f90

    r5272 r5281  
    33!
    44subroutine writehist(time,vcov,ucov,teta,phi,q,masse,ps,phis)
     5  USE comgeom_mod_h
    56  USE ioipsl
    67  USE infotrac, ONLY : nqtot
    … …  
    3536  !   Declarations
    3637
    37   include "comgeom.h"
    3838  include "description.h"
    3939  include "iniprint.h"
Note: See TracChangeset for help on using the changeset viewer.