Ignore:
Timestamp:
Oct 24, 2024, 5:53:15 PM (8 months ago)
Author:
abarral
Message:

Turn paramet.h into a module

Location:
LMDZ6/trunk/libf/dyn3d_common
Files:
78 edited

Legend:

Unmodified
Added
Removed

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

    r5271 r5272  
    77  USE comconst_mod, ONLY: dtvr
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    1113
    12   include "paramet.h"
     14
    1315  include "comdissip.h"
    1416  include "comgeom2.h"

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

    r5271 r5272  
    1616  !   --------------------------------------------------------------------
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921  !
    2022
    21   include "paramet.h"
     23
    2224  include "comgeom.h"
    2325  include "iniprint.h"
    … …  
    146148  !   --------------------------------------------------------------------
    147149  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     150USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     151          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    148152IMPLICIT NONE
    149153  !
    150154
    151   INCLUDE "paramet.h"
     155
    152156  INCLUDE "iniprint.h"
    153157  !
    … …  
    264268  !   --------------------------------------------------------------------
    265269  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     270USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     271          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    266272IMPLICIT NONE
    267273  !
    268274
    269   INCLUDE "paramet.h"
     275
    270276  INCLUDE "iniprint.h"
    271277  !
    … …  
    361367  !   --------------------------------------------------------------------
    362368  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     369USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     370          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    363371IMPLICIT NONE
    364372  !
    365373
    366   INCLUDE "paramet.h"
     374
    367375  INCLUDE "iniprint.h"
    368376  !
    … …  
    484492  !   --------------------------------------------------------------------
    485493  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     494USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     495          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    486496IMPLICIT NONE
    487497  !
    488498
    489   include "paramet.h"
     499
    490500  include "iniprint.h"
    491501  !
    … …  
    750760  !   --------------------------------------------------------------------
    751761  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     762USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     763          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    752764IMPLICIT NONE
    753765  !
    754766
    755   INCLUDE "paramet.h"
     767
    756768  INCLUDE "comgeom.h"
    757769  INCLUDE "iniprint.h"
    … …  
    882894  !   --------------------------------------------------------------------
    883895  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     896USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     897          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    884898IMPLICIT NONE
    885899  !
    886900
    887   INCLUDE "paramet.h"
     901
    888902  INCLUDE "comgeom.h"
    889903  INCLUDE "iniprint.h"

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/advx.f90

    r5271 r5272  
    55        sx,sy,sz,lati,latf)
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810
    … …  
    2527  !
    2628
    27   include "paramet.h"
     29
    2830
    2931  !  Arguments :

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/advxp.f90

    r5271 r5272  
    55         ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra)
    66   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    1517  !
    1618
    17   include "paramet.h"
     19
    1820
    1921   INTEGER :: ntra

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

    r5271 r5272  
    44SUBROUTINE advy(limit,dty,pbarv,sm,s0,sx,sy,sz)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    2830  !
    2931
    30   include "paramet.h"
     32
    3133  include "comgeom2.h"
    3234

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

    r5271 r5272  
    55        ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    3032  !
    3133
    32   include "paramet.h"
     34
    3335  include "comgeom.h"
    3436

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/advz.f90

    r5271 r5272  
    44SUBROUTINE advz(limit,dtz,w,sm,s0,sx,sy,sz)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    2325  !
    2426
    25   include "paramet.h"
     27
    2628
    2729  ! INCLUDE "traceur.h"

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

    r5271 r5272  
    66
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    … …  
    3335  !
    3436
    35   include "paramet.h"
     37
    3638  include "comgeom.h"
    3739  !

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/bernoui.f90

    r5271 r5272  
    44SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    2729  !
    2830
    29   include "paramet.h"
     31
    3032  !
    3133  !   Arguments:

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

    r5271 r5272  
    99  USE comvert_mod, ONLY: ap, bp
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    13   include "paramet.h"
     15
    1416  include "comgeom.h"
    1517!===============================================================================

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

    r5271 r5272  
    1919  !
    2020  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     21USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     22          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2123IMPLICIT NONE
    2224  !
    2325
    24   INCLUDE "paramet.h"
     26
    2527  REAL :: xflu,yflu,convfl,convpn,convps
    2628  INTEGER :: l,ij,nbniv

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

    r5271 r5272  
    66! Purpose: Compute mass flux convergence at p levels.
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    10   include "paramet.h"
     12
    1113  include "comgeom.h"
    1214!===============================================================================

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

    r5271 r5272  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  REAL :: lon,lat
    … …  
    2022
    2123
    22   include "paramet.h"
     24
    2325  include "comgeom.h"
    2426

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

    r5271 r5272  
    77!-------------------------------------------------------------------------------
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom.h"
    1315!===============================================================================

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

    r5271 r5272  
    5656
    5757  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     58USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     59          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    5860IMPLICIT NONE
    5961  !
    6062
    61   INCLUDE "paramet.h"
     63
    6264  INCLUDE "comgeom.h"
    6365  INCLUDE "iniprint.h"

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/disvert.f90

    r5271 r5272  
    1111
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416
    1517
    16   include "paramet.h"
     18
    1719  include "iniprint.h"
    1820

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/disvert_noterre.f90

    r5271 r5272  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719
    1820
    19   include "paramet.h"
     21
    2022  include "iniprint.h"
    2123  !

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

    r5271 r5272  
    1212  !  *********************************************************************
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    … …  
    2426  !   ---------------------------------------------------------------------
    2527
    26   INCLUDE "paramet.h"
     28
    2729  INCLUDE "comgeom.h"
    2830  !

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

    r5271 r5272  
    1313  !  *********************************************************************
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    … …  
    2527  !   ---------------------------------------------------------------------
    2628
    27   INCLUDE "paramet.h"
     29
    2830  INCLUDE "comgeom.h"
    2931  !

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

    r5271 r5272  
    1212  !  *********************************************************************
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    … …  
    2426  !   ---------------------------------------------------------------------
    2527
    26   INCLUDE "paramet.h"
     28
    2729  INCLUDE "comgeom.h"
    2830  !

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

    r5271 r5272  
    44SUBROUTINE divergst(klevel,x,y,div)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     8
    69  IMPLICIT NONE
    710  !
    … …  
    1821  !   -------------------------------------------------------------------
    1922  !
    20   INCLUDE "paramet.h"
    2123  INCLUDE "comgeom.h"
    2224

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

    r5271 r5272  
    44SUBROUTINE divgrad (klevel,h, lh, divgra )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79  !
    … …  
    2224  !
    2325
    24   include "paramet.h"
     26
    2527  include "comgeom.h"
    2628  include "comdissipn.h"

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INCLUDE "comgeom2.h"
    2123  INCLUDE "comdissipn.h"

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/ener_mod.f90

    r5271 r5272  
    55
    66USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810
    911
    10 include "paramet.h"
     12
    1113
    1214      REAL ang0,etot0,ptot0,ztot0,stot0,                        &

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

    r5271 r5272  
    66! Purpose: Compute kinetic energy at sigma levels.
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    10   include "paramet.h"
     12
    1113  include "comgeom.h"
    1214!===============================================================================

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

    r5271 r5272  
    3737   
    3838    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     39USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     40          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3941IMPLICIT NONE
    4042
    4143
    42     include "paramet.h"
     44
    4345    include "comgeom.h"
    4446

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

    r5271 r5272  
    3434   
    3535    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     36USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     37          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3638IMPLICIT NONE
    3739
    3840
    39     include "paramet.h"
     41
    4042    include "comgeom.h"
    4143

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

    r5271 r5272  
    66! Purpose: Compute mass flux at s levels.
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    10   include "paramet.h"
     12
    1113  include "comgeom.h"
    1214!===============================================================================

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/fxy.f90

    r5271 r5272  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315
    … …  
    1921  !
    2022
    21   include "paramet.h"
     23
    2224
    2325   INTEGER :: i,j

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/fxysinus.f90

    r5271 r5272  
    99  USE comconst_mod, ONLY: pi
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214  !
    … …  
    1820  !
    1921
    20   INCLUDE "paramet.h"
     22
    2123
    2224   INTEGER :: i,j

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/geopot.f90

    r5271 r5272  
    44SUBROUTINE geopot (ngrid, teta, pk, pks, phis, phi )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     8
    69IMPLICIT NONE
    710
    … …  
    2730  !   Declarations:
    2831  !   -------------
    29 
    30 
    31   include "paramet.h"
    3232
    3333  !   Arguments:

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

    r5271 r5272  
    2626  !=======================================================================
    2727  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     28USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     29          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2830IMPLICIT NONE
    2931  !-----------------------------------------------------------------------
    … …  
    3234
    3335
    34   INCLUDE "paramet.h"
     36
    3537  INCLUDE "comgeom.h"
    3638

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

    r5271 r5272  
    2626  !=======================================================================
    2727  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     28USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     29          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2830IMPLICIT NONE
    2931  !-----------------------------------------------------------------------
    … …  
    3234
    3335
    34   INCLUDE "paramet.h"
     36
    3537  INCLUDE "comgeom.h"
    3638

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/grad.f90

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INTEGER :: klevel
    2123  REAL :: pg( ip1jmp1,klevel )

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/gradiv.f90

    r5271 r5272  
    1818  !
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     21          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2022IMPLICIT NONE
    2123  !
    2224
    23   include "paramet.h"
     25
    2426  include "comdissipn.h"
    2527

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

    r5271 r5272  
    1717  !
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    2123
    22   INCLUDE "paramet.h"
     24
    2325  INCLUDE "comgeom.h"
    2426  INCLUDE "comdissipn.h"

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

    r5271 r5272  
    1818 
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     21          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2022IMPLICIT NONE
    2123
    2224
    23   INCLUDE "paramet.h"
     25
    2426  INCLUDE "comgeom.h"
    2527

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/iniconst.f90

    r5271 r5272  
    1212 
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    … …  
    2022  !
    2123
    22   include "paramet.h"
     24
    2325  include "iniprint.h"
    2426

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/inidissip.f90

    r5271 r5272  
    1717
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022
    21   include "paramet.h"
     23
    2224  include "comdissipn.h"
    2325  include "iniprint.h"

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

    r5271 r5272  
    2323        alphax,alphay,taux,tauy,transx,transy,pxo,pyo
    2424  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     26          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2527IMPLICIT NONE
    2628  !
    2729
    28   include "paramet.h"
     30
    2931  include "comgeom2.h"
    3032  include "comdissnew.h"

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

    r5271 r5272  
    1212 
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416implicit none
    1517
    … …  
    3638
    3739
    38   include "paramet.h"
     40
    3941  include "comgeom.h"
    4042  include "description.h"

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

    r5271 r5272  
    1212
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416implicit none
    1517
    … …  
    4244  !   Declarations
    4345
    44   include "paramet.h"
     46
    4547  include "comgeom.h"
    4648  include "description.h"

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

    r5271 r5272  
    1313
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517implicit none
    1618
    … …  
    4143  !   Declarations
    4244
    43   include "paramet.h"
     45
    4446  include "comgeom.h"
    4547  include "description.h"

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

    r5271 r5272  
    77
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911implicit none
    1012
    … …  
    2224    ! (for "iim", "jjm")
    2325
    24     include "paramet.h"
     26
    2527    ! (for other included files)
    2628

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

    r5271 r5272  
    55
    66   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79implicit none
    810
    911
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom2.h"
    1315

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

    r5271 r5272  
    1010
    1111   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214implicit none
    1315
    1416
    15   include "paramet.h"
     17
    1618  include "comdissip.h"
    1719  include "comgeom2.h"

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022

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

    r5271 r5272  
    1515  !
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719IMPLICIT NONE
    1820  !
    1921
    20   INCLUDE "paramet.h"
     22
    2123  INCLUDE "comgeom.h"
    2224

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INCLUDE "comgeom.h"
    2123

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022

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

    r5271 r5272  
    1414  !   --------------------------------------------------------------------
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   include "paramet.h"
     21
    2022  include "comgeom.h"
    2123  !

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

    r5271 r5272  
    1616  USE comconst_mod, ONLY: pi
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921  !
    2022
    21   include "paramet.h"
     23
    2224  include "comgeom.h"
    2325  !

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

    r5271 r5272  
    1414  !   --------------------------------------------------------------------
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   include "paramet.h"
     21
    2022  include "comgeom.h"
    2123  !

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

    r5271 r5272  
    77! See iniconst for more details.
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom.h"
    1315!===============================================================================

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

    r5271 r5272  
    77! See iniconst for more details.
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom.h"
    1315!===============================================================================

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

    r5271 r5272  
    1717  !
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    2123
    22   include "paramet.h"
     24
    2325  include "comgeom.h"
    2426  !

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022  INTEGER :: klevel

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022  INTEGER :: klevel

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

    r5271 r5272  
    33!
    44SUBROUTINE nxgradst (klevel,rot, x, y )
    5   !
    65  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    78IMPLICIT NONE
    89  ! Auteur :  P. Le Van
    … …  
    1516  !
    1617
    17   INCLUDE "paramet.h"
    1818  INCLUDE "comgeom.h"
    1919

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/nxgraro2.f90

    r5271 r5272  
    1616  !
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921  !
    2022
    21   INCLUDE "paramet.h"
     23
    2224  INCLUDE "comdissipn.h"
    2325  !

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/nxgrarot.f90

    r5271 r5272  
    1717  !
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    2123  !
    2224
    23   include "paramet.h"
     25
    2426  include "comdissipn.h"
    2527  !

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

    r5271 r5272  
    44SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    7577  !=======================================================================
    7678
    77 
    78 
    79   INCLUDE "paramet.h"
    80 
    8179  INCLUDE "comgeom.h"
    8280

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

    r5271 r5272  
    33!
    44SUBROUTINE pentes_ini (q,w,masse,pbaru,pbarv,mode)
    5 
    65  USE comconst_mod, ONLY: pi, dtvr
    7 
    86  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    99IMPLICIT NONE
    1010
    … …  
    2424  !
    2525  !=======================================================================
    26 
    27 
    28 
    29   include "paramet.h"
    3026  include "comgeom2.h"
    3127

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

    r5271 r5272  
    33!
    44SUBROUTINE prather (q,w,masse,pbaru,pbarv,nt,dt)
    5 
    65  USE comconst_mod, ONLY: pi
    7 
    86  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    99IMPLICIT NONE
    1010
    … …  
    2121  !
    2222  !=======================================================================
    23 
    24 
    25 
    26   include "paramet.h"
    2723  include "comgeom2.h"
    2824

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/pression.f90

    r5271 r5272  
    99!-------------------------------------------------------------------------------
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    13   include "paramet.h"
     15
    1416!===============================================================================
    1517! Arguments:

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

    r5271 r5272  
    44SUBROUTINE psextbar ( ps, psexbarxy )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    7476  !
    7577  !=======================================================================
    76 
    77 
    78 
    79   INCLUDE "paramet.h"
    8078  INCLUDE "comgeom.h"
    8179

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INCLUDE "comgeom.h"
    2123  !

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INCLUDE "comgeom.h"
    2123  !

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

    r5271 r5272  
    1515  !
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719IMPLICIT NONE
    1820  !
    1921
    20   INCLUDE "paramet.h"
     22
    2123  INCLUDE "comgeom.h"
    2224  !

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/rotatst.f90

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820  INTEGER :: klevel
    1921
    20   INCLUDE "paramet.h"
     22
    2123
    2224  REAL :: rot( ip1jm,klevel )

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

    r5271 r5272  
    1313        rmsdpdt,rmsv
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618
    … …  
    3234
    3335
    34   INCLUDE "paramet.h"
     36
    3537  INCLUDE "comgeom.h"
    3638  INCLUDE "iniprint.h"

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/test_period.f90

    r5271 r5272  
    1010  !
    1111  USE infotrac, ONLY : nqtot
    12   !
    13   ! USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12  USE dimensions_mod, ONLY: iim, llm
     13  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1415IMPLICIT NONE
    15   !
    16 
    17   INCLUDE "paramet.h"
    1816  !
    1917  !    ......  Arguments   ......

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

    r5271 r5272  
    66! Purpose: Compute potential vorticity.
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    10   include "paramet.h"
     12
    1113  include "comgeom.h"
    1214!===============================================================================

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

    r5271 r5272  
    55
    66      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79implicit none
    810
    911
    10   include "paramet.h"
     12
    1113  include "comdissip.h"
    1214  include "comgeom2.h"

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

    r5271 r5272  
    1414 
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618implicit none
    1719
    1820
    19   include "paramet.h"
     21
    2022  include "comgeom2.h"
    2123

  • TabularUnified LMDZ6/trunk/libf/dyn3d_common/vitvert.f90

    r5271 r5272  
    77  USE comvert_mod, ONLY: bp
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214!===============================================================================
    1315! Arguments:

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

    r5271 r5272  
    99  USE temps_mod, ONLY: itau_dyn
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113implicit none
    1214
    … …  
    3032  !   Declarations
    3133
    32   include "paramet.h"
     34
    3335  include "comgeom.h"
    3436  include "description.h"

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

    r5271 r5272  
    88  USE temps_mod, ONLY: itau_dyn
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012implicit none
    1113
    … …  
    3234  !
    3335  !   Declarations
    34   include "paramet.h"
     36
    3537  include "comgeom.h"
    3638  include "description.h"
Note: See TracChangeset for help on using the changeset viewer.