Ignore:
Timestamp:
Oct 24, 2024, 4:25:39 PM (8 days ago)
Author:
abarral
Message:

Move dimensions.h into a module
Nb: doesn't compile yet

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

Legend:

Unmodified
Added
Removed

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

    r5246 r5271  
    66
    77  USE comconst_mod, ONLY: dtvr
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910
    10   include "dimensions.h"
     11
    1112  include "paramet.h"
    1213  include "comdissip.h"

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

    r5246 r5271  
    1515  !
    1616  !   --------------------------------------------------------------------
    17   IMPLICIT NONE
    18   !
    19   include "dimensions.h"
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
     19  !
     20
    2021  include "paramet.h"
    2122  include "comgeom.h"
    … …  
    144145  !
    145146  !   --------------------------------------------------------------------
    146   IMPLICIT NONE
    147   !
    148   INCLUDE "dimensions.h"
     147  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     148IMPLICIT NONE
     149  !
     150
    149151  INCLUDE "paramet.h"
    150152  INCLUDE "iniprint.h"
    … …  
    261263  !
    262264  !   --------------------------------------------------------------------
    263   IMPLICIT NONE
    264   !
    265   INCLUDE "dimensions.h"
     265  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     266IMPLICIT NONE
     267  !
     268
    266269  INCLUDE "paramet.h"
    267270  INCLUDE "iniprint.h"
    … …  
    357360  !
    358361  !   --------------------------------------------------------------------
    359   IMPLICIT NONE
    360   !
    361   INCLUDE "dimensions.h"
     362  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     363IMPLICIT NONE
     364  !
     365
    362366  INCLUDE "paramet.h"
    363367  INCLUDE "iniprint.h"
    … …  
    479483  !
    480484  !   --------------------------------------------------------------------
    481   IMPLICIT NONE
    482   !
    483   include "dimensions.h"
     485  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     486IMPLICIT NONE
     487  !
     488
    484489  include "paramet.h"
    485490  include "iniprint.h"
    … …  
    744749  !
    745750  !   --------------------------------------------------------------------
    746   IMPLICIT NONE
    747   !
    748   INCLUDE "dimensions.h"
     751  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     752IMPLICIT NONE
     753  !
     754
    749755  INCLUDE "paramet.h"
    750756  INCLUDE "comgeom.h"
    … …  
    875881  !
    876882  !   --------------------------------------------------------------------
    877   IMPLICIT NONE
    878   !
    879   INCLUDE "dimensions.h"
     883  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     884IMPLICIT NONE
     885  !
     886
    880887  INCLUDE "paramet.h"
    881888  INCLUDE "comgeom.h"

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

    r5246 r5271  
    44SUBROUTINE  advx(limit,dtx,pbaru,sm,s0, &
    55        sx,sy,sz,lati,latf)
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78
    89  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    2324  !  parametres principaux du modele
    2425  !
    25   include "dimensions.h"
     26
    2627  include "paramet.h"
    2728

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

    r5246 r5271  
    44 SUBROUTINE ADVXP(LIMIT,DTX,PBARU,SM,S0,SSX,SY,SZ &
    55         ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra)
    6    IMPLICIT NONE
     6   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    89  !                                                                 C
    … …  
    1314  !  parametres principaux du modele
    1415  !
    15   include "dimensions.h"
     16
    1617  include "paramet.h"
    1718

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

    r5246 r5271  
    33!
    44SUBROUTINE advy(limit,dty,pbarv,sm,s0,sx,sy,sz)
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    2627  !
    2728  !
    28   include "dimensions.h"
     29
    2930  include "paramet.h"
    3031  include "comgeom2.h"

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

    r5246 r5271  
    44SUBROUTINE ADVYP(LIMIT,DTY,PBARV,SM,S0,SSX,SY,SZ &
    55        ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    89  !                                                                 C
    … …  
    2829  !
    2930  !
    30   include "dimensions.h"
     31
    3132  include "paramet.h"
    3233  include "comgeom.h"

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

    r5246 r5271  
    33!
    44SUBROUTINE advz(limit,dtz,w,sm,s0,sx,sy,sz)
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    2122  !  parametres principaux du modele
    2223  !
    23   include "dimensions.h"
     24
    2425  include "paramet.h"
    2526

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

    r5246 r5271  
    55        ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
    66
    7   IMPLICIT NONE
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
    89
    910  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    3132  !  parametres principaux du modele
    3233  !
    33   include "dimensions.h"
     34
    3435  include "paramet.h"
    3536  include "comgeom.h"

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

    r5246 r5271  
    33!
    44SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    2526  !   -------------
    2627  !
    27   include "dimensions.h"
     28
    2829  include "paramet.h"
    2930  !

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

    r5268 r5271  
    88  USE control_mod, ONLY: resetvarc
    99  USE comvert_mod, ONLY: ap, bp
    10   IMPLICIT NONE
    11   include "dimensions.h"
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
     12
    1213  include "paramet.h"
    1314  include "comgeom.h"

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

    r5268 r5271  
    44MODULE comvert_mod
    55
    6 IMPLICIT NONE 
     6USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78
    89PRIVATE
    9 INCLUDE "dimensions.h"
     10
    1011
    1112PUBLIC :: ap,bp,presnivs,dpres,sig,ds,pa,preff,nivsigs,nivsig, &

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

    r5246 r5271  
    1818  ! nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
    1919  !
    20   IMPLICIT NONE
     20  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     21IMPLICIT NONE
    2122  !
    22   INCLUDE "dimensions.h"
     23
    2324  INCLUDE "paramet.h"
    2425  REAL :: xflu,yflu,convfl,convpn,convps

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

    r5268 r5271  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute mass flux convergence at p levels.
    7   IMPLICIT NONE
    8   include "dimensions.h"
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910  include "paramet.h"
    1011  include "comgeom.h"

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

    r5246 r5271  
    1313  USE comconst_mod, ONLY: pi
    1414
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  REAL :: lon,lat
    1718  INTEGER :: ilon,jlat
    1819  INTEGER :: i,j
    1920
    20   include "dimensions.h"
     21
    2122  include "paramet.h"
    2223  include "comgeom.h"

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

    r5268 r5271  
    66! Purpose: Compute contravariant components from covariant components.
    77!-------------------------------------------------------------------------------
    8   IMPLICIT NONE
    9   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
    1011  include "paramet.h"
    1112  include "comgeom.h"

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

    r5246 r5271  
    5555  USE control_mod, ONLY : planet_type
    5656
    57   IMPLICIT NONE
    58   !
    59   INCLUDE "dimensions.h"
     57  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     58IMPLICIT NONE
     59  !
     60
    6061  INCLUDE "paramet.h"
    6162  INCLUDE "comgeom.h"

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

    r5268 r5271  
    1010  USE logic_mod, ONLY: ok_strato
    1111
    12   IMPLICIT NONE
    13 
    14   include "dimensions.h"
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
     14
     15
    1516  include "paramet.h"
    1617  include "iniprint.h"

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

    r5268 r5271  
    1313  USE logic_mod, ONLY: hybrid
    1414
    15   IMPLICIT NONE
    16 
    17   include "dimensions.h"
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
     17
     18
    1819  include "paramet.h"
    1920  include "iniprint.h"

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

    r5246 r5271  
    1111  !          x et y  etant des composantes covariantes   ...
    1212  !  *********************************************************************
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    1516  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2223  !
    2324  !   ---------------------------------------------------------------------
    24   INCLUDE "dimensions.h"
     25
    2526  INCLUDE "paramet.h"
    2627  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1212  !          x et y  etant des composantes covariantes   ...
    1313  !  *********************************************************************
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    1617  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2324  !
    2425  !   ---------------------------------------------------------------------
    25   INCLUDE "dimensions.h"
     26
    2627  INCLUDE "paramet.h"
    2728  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1111  !          x et y  etant des composantes covariantes   ...
    1212  !  *********************************************************************
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    1516  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2223  !
    2324  !   ---------------------------------------------------------------------
    24   INCLUDE "dimensions.h"
     25
    2526  INCLUDE "paramet.h"
    2627  INCLUDE "comgeom.h"

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

    r5246 r5271  
    33!
    44SUBROUTINE divergst(klevel,x,y,div)
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    56  IMPLICIT NONE
    67  !
    … …  
    1718  !   -------------------------------------------------------------------
    1819  !
    19   INCLUDE "dimensions.h"
    2020  INCLUDE "paramet.h"
    2121  INCLUDE "comgeom.h"

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

    r5246 r5271  
    33!
    44SUBROUTINE divgrad (klevel,h, lh, divgra )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67  !
    78  !=======================================================================
    … …  
    2021  !   -------------
    2122  !
    22   include "dimensions.h"
     23
    2324  include "paramet.h"
    2425  include "comgeom.h"

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

    r5246 r5271  
    1313  !     divgra     est  un argument  de sortie pour le s-prg
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INCLUDE "comgeom2.h"

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

    r5268 r5271  
    44MODULE ener_mod
    55
    6 IMPLICIT NONE 
     6USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78
    8 include "dimensions.h"
     9
    910include "paramet.h"
    1011

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

    r5268 r5271  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute kinetic energy at sigma levels.
    7   IMPLICIT NONE
    8   include "dimensions.h"
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910  include "paramet.h"
    1011  include "comgeom.h"

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

    r5268 r5271  
    3636    USE comvert_mod, ONLY: preff
    3737   
    38     IMPLICIT NONE
    39    
    40     include "dimensions.h"
     38    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     39IMPLICIT NONE
     40
     41
    4142    include "paramet.h"
    4243    include "comgeom.h"

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

    r5268 r5271  
    3333    USE comvert_mod, ONLY: preff
    3434   
    35     IMPLICIT NONE
    36    
    37     include "dimensions.h"
     35    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     36IMPLICIT NONE
     37
     38
    3839    include "paramet.h"
    3940    include "comgeom.h"

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

    r5268 r5271  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute mass flux at s levels.
    7   IMPLICIT NONE
    8   include "dimensions.h"
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910  include "paramet.h"
    1011  include "comgeom.h"

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

    r5268 r5271  
    2323    use principal_cshift_m, only: principal_cshift
    2424    use serre_mod, only: clon, grossismx, dzoomx, taux
    25 
    26     include "dimensions.h"
    27     ! for iim
     25    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2826
    2927    REAL, intent(out):: xprimm025(:), rlonv(:), xprimv(:) ! (iim + 1)

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

    r5246 r5271  
    99  USE serre_mod, ONLY: pxo,pyo,alphax,alphay,transx,transy
    1010
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213
    1314  ! Auteur  :  P. Le Van
    … …  
    1718  !
    1819  !
    19   include "dimensions.h"
     20
    2021  include "paramet.h"
    2122

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

    r5246 r5271  
    88
    99  USE comconst_mod, ONLY: pi
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112  !
    1213  ! Calcul  des longitudes et des latitudes  pour une fonction f(x,y)
    … …  
    1617  !
    1718  !
    18   INCLUDE "dimensions.h"
     19
    1920  INCLUDE "paramet.h"
    2021

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

    r5268 r5271  
    1919    use nrtype, only: k8
    2020    use serre_mod, only: clat, grossismy, dzoomy, tauy
    21 
    22     include "dimensions.h"
    23     ! for jjm
     21    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2422
    2523    REAL, intent(out):: rlatu(jjm + 1), yyprimu(jjm + 1)

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

    r5246 r5271  
    33!
    44SUBROUTINE geopot (ngrid, teta, pk, pks, phis, phi )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    2728  !   -------------
    2829
    29   include "dimensions.h"
     30
    3031  include "paramet.h"
    3132

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

    r5246 r5271  
    2525  !
    2626  !=======================================================================
    27   IMPLICIT NONE
     27  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     28IMPLICIT NONE
    2829  !-----------------------------------------------------------------------
    2930  !   Declararations:
    3031  !   ---------------
    3132
    32   INCLUDE "dimensions.h"
     33
    3334  INCLUDE "paramet.h"
    3435  INCLUDE "comgeom.h"

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

    r5246 r5271  
    2525  !
    2626  !=======================================================================
    27   IMPLICIT NONE
     27  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     28IMPLICIT NONE
    2829  !-----------------------------------------------------------------------
    2930  !   Declararations:
    3031  !   ---------------
    3132
    32   INCLUDE "dimensions.h"
     33
    3334  INCLUDE "paramet.h"
    3435  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1313  !   pgx  et  pgy    sont des arguments de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INTEGER :: klevel

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

    r5246 r5271  
    1717  !
    1818  !
    19   IMPLICIT NONE
     19  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20IMPLICIT NONE
    2021  !
    21   include "dimensions.h"
     22
    2223  include "paramet.h"
    2324  include "comdissipn.h"

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

    r5246 r5271  
    1616  !
    1717  !
    18   IMPLICIT NONE
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
    1920  !
    20   INCLUDE "dimensions.h"
     21
    2122  INCLUDE "paramet.h"
    2223  INCLUDE "comgeom.h"

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

    r5270 r5271  
    1717          nf90_put_att, nf90_enddef, nf90_create
    1818 
    19   IMPLICIT NONE
    20 
    21   INCLUDE "dimensions.h"
     19  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20IMPLICIT NONE
     21
     22
    2223  INCLUDE "paramet.h"
    2324  INCLUDE "comgeom.h"

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

    r5268 r5271  
    120120   USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_trac
    121121   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS, CPPKEY_STRATAER
    122    IMPLICIT NONE
     122   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     123IMPLICIT NONE
    123124!==============================================================================================================================
    124125!
    … …  
    140141!------------------------------------------------------------------------------------------------------------------------------
    141142! Declarations:
    142    INCLUDE "dimensions.h"
     143
    143144   INCLUDE "iniprint.h"
    144145

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

    r5268 r5271  
    1111  USE comvert_mod, ONLY: disvert_type, pressure_exner
    1212 
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    1516  !      P. Le Van
    … …  
    1819  !   -------------
    1920  !
    20   include "dimensions.h"
     21
    2122  include "paramet.h"
    2223  include "iniprint.h"

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

    r5268 r5271  
    1616  USE comvert_mod, ONLY: preff, presnivs
    1717
    18   IMPLICIT NONE
    19   include "dimensions.h"
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
     20
    2021  include "paramet.h"
    2122  include "comdissipn.h"

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

    r5246 r5271  
    2222  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
    2323        alphax,alphay,taux,tauy,transx,transy,pxo,pyo
    24   IMPLICIT NONE
    25   !
    26   include "dimensions.h"
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25IMPLICIT NONE
     26  !
     27
    2728  include "paramet.h"
    2829  include "comgeom2.h"

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

    r5268 r5271  
    1111  USE temps_mod, ONLY: itau_dyn
    1212 
    13   implicit none
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14implicit none
    1415
    1516
    … …  
    3435  !   L. Fairhead, LMD, 03/99
    3536
    36   include "dimensions.h"
     37
    3738  include "paramet.h"
    3839  include "comgeom.h"

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

    r5268 r5271  
    1111  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
    1212
    13   implicit none
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14implicit none
    1415
    1516  !
    … …  
    4041  !
    4142  !   Declarations
    42   include "dimensions.h"
     43
    4344  include "paramet.h"
    4445  include "comgeom.h"

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

    r5268 r5271  
    1212   USE temps_mod, ONLY: itau_dyn
    1313
    14   implicit none
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15implicit none
    1516
    1617  !
    … …  
    3940  !
    4041  !   Declarations
    41   include "dimensions.h"
     42
    4243  include "paramet.h"
    4344  include "comgeom.h"

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

    r5268 r5271  
    66  ! Authors: Robert SADOURNY, Phu LE VAN, Lionel GUEZ
    77
    8   implicit none
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9implicit none
    910
    1011  private
    … …  
    1819    use assert_m, only: assert
    1920
    20     include "dimensions.h"
     21
    2122    ! (for "iim", "jjm")
    2223

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

    r5246 r5271  
    44  subroutine interpost(q,qppm)
    55
    6    implicit none
     6   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7implicit none
    78
    89
    9   include "dimensions.h"
     10
    1011  include "paramet.h"
    1112  include "comgeom2.h"
    … …  
    1819
    1920  ! RE-INVERSION DES NIVEAUX
    20   ! le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
     21  ! le programme ppm3d travaille avec une 3�me coordonn�e invers�e par rapport
    2122  ! de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
    22   ! On passe donc des niveaux de Lin à ceux du LMDZ
     23  ! On passe donc des niveaux de Lin � ceux du LMDZ
    2324
    2425    do l=1,llm

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

    r5246 r5271  
    99  USE comvert_mod, ONLY: ap, bp
    1010
    11    implicit none
     11   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12implicit none
    1213
    13   include "dimensions.h"
     14
    1415  include "paramet.h"
    1516  include "comdissip.h"
    … …  
    4142
    4243    ! CALCUL DE LA PRESSION DE SURFACE
    43     ! Les coefficients ap et bp sont passés en common
    44     ! Calcul de la pression au sol en mb optimisée pour
     44    ! Les coefficients ap et bp sont pass�s en common
     45    ! Calcul de la pression au sol en mb optimis�e pour
    4546    ! la vectorialisation
    4647
    … …  
    6768  ! RECONSTRUCTION DES CHAMPS CONTRAVARIANTS
    6869  ! Le programme ppm3d travaille avec les composantes
    69   ! de vitesse et pas les flux, on doit donc passer de l'un à l'autre
    70   ! Dans le même temps, on fait le changement d'orientation du vent en v
     70  ! de vitesse et pas les flux, on doit donc passer de l'un � l'autre
     71  ! Dans le m�me temps, on fait le changement d'orientation du vent en v
    7172  do l=1,llm
    7273      do j=1,jjm
    … …  
    99100
    100101  ! INVERSION DES NIVEAUX
    101   ! le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
     102  ! le programme ppm3d travaille avec une 3�me coordonn�e invers�e par rapport
    102103  ! de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
    103   ! On passe donc des niveaux du LMDZ à ceux de Lin
     104  ! On passe donc des niveaux du LMDZ � ceux de Lin
    104105
    105106  do l=1,llm+1

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

    r5268 r5271  
    11module invert_zoom_x_m
    22
    3   implicit none
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4implicit none
    45
    56  INTEGER, PARAMETER:: nmax = 30000
    … …  
    1314    use serre_mod, only: clon
    1415
    15     include "dimensions.h"
     16
    1617    ! for iim
    1718

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

    r5246 r5271  
    1212  !  divgra     est  un argument  de sortie pour le s-prog
    1313  !
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    16   INCLUDE "dimensions.h"
     17
    1718  INCLUDE "paramet.h"
    1819  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1414  !  divgra     est  un argument  de sortie pour le s-prog
    1515  !
    16   IMPLICIT NONE
     16  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
    1718  !
    18   INCLUDE "dimensions.h"
     19
    1920  INCLUDE "paramet.h"
    2021  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1313  !  rotout           est  un argument  de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1212  !  divgra     est  un argument  de sortie pour le s-prog
    1313  !
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    16   INCLUDE "dimensions.h"
     17
    1718  INCLUDE "paramet.h"
    1819  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1313  !
    1414  !   --------------------------------------------------------------------
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   include "dimensions.h"
     18
    1819  include "paramet.h"
    1920  include "comgeom.h"

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

    r5246 r5271  
    1515  !   --------------------------------------------------------------------
    1616  USE comconst_mod, ONLY: pi
    17   IMPLICIT NONE
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
    1819  !
    19   include "dimensions.h"
     20
    2021  include "paramet.h"
    2122  include "comgeom.h"

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

    r5246 r5271  
    1313  !
    1414  !   --------------------------------------------------------------------
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   include "dimensions.h"
     18
    1819  include "paramet.h"
    1920  include "comgeom.h"

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

    r5268 r5271  
    66! Purpose: Compute air mass mean along X and Y in each cell.
    77! See iniconst for more details.
    8   IMPLICIT NONE
    9   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
    1011  include "paramet.h"
    1112  include "comgeom.h"

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

    r5268 r5271  
    66! Purpose: Compute air mass mean along X and Y in each cell.
    77! See iniconst for more details.
    8   IMPLICIT NONE
    9   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
    1011  include "paramet.h"
    1112  include "comgeom.h"

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

    r5246 r5271  
    1616  !  ....  p est defini aux interfaces des llm couches   .....
    1717  !
    18   IMPLICIT NONE
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
    1920  !
    20   include "dimensions.h"
     21
    2122  include "paramet.h"
    2223  include "comgeom.h"

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

    r5246 r5271  
    1212  !   x  et y    sont des arguments de sortie pour le s-prog
    1313  !
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    16   INCLUDE "dimensions.h"
     17
    1718  INCLUDE "paramet.h"
    1819  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1212  !   x  et y    sont des arguments de sortie pour le s-prog
    1313  !
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    16   INCLUDE "dimensions.h"
     17
    1718  INCLUDE "paramet.h"
    1819  INCLUDE "comgeom.h"

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

    r5246 r5271  
    44SUBROUTINE nxgradst (klevel,rot, x, y )
    55  !
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78  ! Auteur :  P. Le Van
    89  !
    … …  
    1314  !   x  et y    sont des arguments de sortie pour le s-prog
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1515  !
    1616  !
    17   IMPLICIT NONE
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
    1819  !
    19   INCLUDE "dimensions.h"
     20
    2021  INCLUDE "paramet.h"
    2122  INCLUDE "comdissipn.h"

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

    r5246 r5271  
    1616  !
    1717  !
    18   IMPLICIT NONE
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
    1920  !
    2021  !
    21   include "dimensions.h"
     22
    2223  include "paramet.h"
    2324  include "comdissipn.h"

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

    r5246 r5271  
    33!
    44SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    7576
    7677
    77   INCLUDE "dimensions.h"
     78
    7879  INCLUDE "paramet.h"
    7980

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

    r5246 r5271  
    66  USE comconst_mod, ONLY: pi, dtvr
    77
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910
    1011  !=======================================================================
    … …  
    2526
    2627
    27   include "dimensions.h"
     28
    2829  include "paramet.h"
    2930  include "comgeom2.h"

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

    r5246 r5271  
    66  USE comconst_mod, ONLY: pi
    77
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910
    1011  !=======================================================================
    … …  
    2223
    2324
    24   include "dimensions.h"
     25
    2526  include "paramet.h"
    2627  include "comgeom2.h"

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

    r5268 r5271  
    88!          with p(ij,llm+1) = 0. and  p(ij,1) = ps(ij)  .   
    99!-------------------------------------------------------------------------------
    10   IMPLICIT NONE
    11   include "dimensions.h"
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
     12
    1213  include "paramet.h"
    1314!===============================================================================

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

    r5268 r5271  
    11module principal_cshift_m
    22
    3   implicit none
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4implicit none
    45
    56contains
    … …  
    1415    use serre_mod, only: clon
    1516
    16     include "dimensions.h"
     17
    1718    ! for iim
    1819

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

    r5246 r5271  
    33!
    44SUBROUTINE psextbar ( ps, psexbarxy )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    7576
    7677
    77   INCLUDE "dimensions.h"
     78
    7879  INCLUDE "paramet.h"
    7980  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1313  !        rot          est  un argument  de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1313  !        rot          est  un argument  de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1414  !        rot          est  un argument  de sortie pour le s-prog
    1515  !
    16   IMPLICIT NONE
     16  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
    1718  !
    18   INCLUDE "dimensions.h"
     19
    1920  INCLUDE "paramet.h"
    2021  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1313  !    rot          est  un argument  de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    1718  INTEGER :: klevel
    18   INCLUDE "dimensions.h"
     19
    1920  INCLUDE "paramet.h"
    2021

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

    r5246 r5271  
    1212        etot0,ptot0,ztot0,stot0,ang0, &
    1313        rmsdpdt,rmsv
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516
    1617
    … …  
    3031  !   -------------
    3132
    32   INCLUDE "dimensions.h"
     33
    3334  INCLUDE "paramet.h"
    3435  INCLUDE "comgeom.h"

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

    r5246 r5271  
    1111  USE infotrac, ONLY : nqtot
    1212  !
    13   ! IMPLICIT NONE
     13  ! USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  !

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

    r5268 r5271  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute potential vorticity.
    7   IMPLICIT NONE
    8   include "dimensions.h"
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910  include "paramet.h"
    1011  include "comgeom.h"

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

    r5246 r5271  
    44    subroutine traceurpole(q,masse)
    55
    6       implicit none
     6      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7implicit none
    78
    8   include "dimensions.h"
     9
    910  include "paramet.h"
    1011  include "comdissip.h"
    … …  
    2829
    2930
    30   ! On impose une seule valeur au pôle Sud j=jjm+1=jjp1
     31  ! On impose une seule valeur au p�le Sud j=jjm+1=jjp1
    3132  sommemasses=0
    3233  sommemqs=0
    … …  
    3940      enddo
    4041
    41   ! On impose une seule valeur du traceur au pôle Nord j=1
     42  ! On impose une seule valeur du traceur au p�le Nord j=1
    4243  sommemassen=0
    4344  sommemqn=0
    … …  
    5051     enddo
    5152
    52   ! On force le traceur à prendre cette valeur aux pôles
     53  ! On force le traceur � prendre cette valeur aux p�les
    5354    do l=1,llm
    5455        do i=1,iip1

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

    r5268 r5271  
    1313  use comconst_mod, only: omeg, rad
    1414 
    15   implicit none
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16implicit none
    1617
    17   include "dimensions.h"
     18
    1819  include "paramet.h"
    1920  include "comgeom2.h"

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

    r5268 r5271  
    66! Purpose: Compute vertical speed at sigma levels.
    77  USE comvert_mod, ONLY: bp
    8   IMPLICIT NONE
    9   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
    1011  include "paramet.h"
    1112!===============================================================================

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

    r5268 r5271  
    88  USE comconst_mod, ONLY: cpp
    99  USE temps_mod, ONLY: itau_dyn
    10 
    11   implicit none
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11implicit none
    1212
    1313  !   Ecriture du fichier histoire au format IOIPSL
    … …  
    2929
    3030  !   Declarations
    31   include "dimensions.h"
     31
    3232  include "paramet.h"
    3333  include "comgeom.h"

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

    r5268 r5271  
    33!
    44subroutine writehist(time,vcov,ucov,teta,phi,q,masse,ps,phis)
    5 
    65  USE ioipsl
    76  USE infotrac, ONLY : nqtot
    87  use com_io_dyn_mod, only : histid,histvid,histuid
    98  USE temps_mod, ONLY: itau_dyn
    10 
    11   implicit none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10implicit none
    1211
    1312  !
    … …  
    3332  !
    3433  !   Declarations
    35   include "dimensions.h"
    3634  include "paramet.h"
    3735  include "comgeom.h"
Note: See TracChangeset for help on using the changeset viewer.