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

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

Location:
LMDZ6/trunk/libf/dyn3d
Files:
35 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/abort_gcm.F90

    r5267 r5271  
    1010  USE wxios
    1111
    12 #include "iniprint.h"
     12INCLUDE "iniprint.h"
    1313
    1414  !

  • LMDZ6/trunk/libf/dyn3d/addfi.f90

    r5246 r5271  
    88  USE infotrac, ONLY : nqtot
    99  USE control_mod, ONLY : planet_type
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1011  IMPLICIT NONE
    1112  !
    … …  
    4647  !    ------------------
    4748  !
    48   include "dimensions.h"
    4949  include "paramet.h"
    5050  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/advect.f90

    r5246 r5271  
    33!
    44SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta)
    5 
    65  USE comconst_mod, ONLY: daysec
    76  USE logic_mod, ONLY: conser
    87  USE ener_mod, ONLY: gtot
    9 
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    109  IMPLICIT NONE
    1110  !=======================================================================
    … …  
    2827  !   -------------
    2928
    30   include "dimensions.h"
    3129  include "paramet.h"
    3230  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/advtrac.f90

    r5268 r5271  
    1414   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1515   USE strings_mod, ONLY: int2str
    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 "comdissip.h"

  • LMDZ6/trunk/libf/dyn3d/bilan_dyn.f90

    r5268 r5271  
    1515  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
    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 "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/caladvtrac.f90

    r5246 r5271  
    1212  USE comconst_mod, ONLY: dtvr
    1313
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    1617  ! Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron
    … …  
    2425
    2526
    26   include "dimensions.h"
     27
    2728  include "paramet.h"
    2829

  • LMDZ6/trunk/libf/dyn3d/caldyn.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
    1314  !=======================================================================
    … …  
    2728  !   ----------------
    2829
    29   include "dimensions.h"
     30
    3031  include "paramet.h"
    3132  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/check_isotopes.f90

    r5268 r5271  
    55   USE iso_params_mod,  ONLY: tnat_H216O, tnat_H217O, tnat_H218O, tnat_HDO, tnat_HTO
    66   USE ioipsl,          ONLY: getin
    7    IMPLICIT NONE
    8    include "dimensions.h"
     7   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910   REAL,             INTENT(INOUT) :: q(ip1jmp1,llm,nqtot)
    1011   INTEGER,          INTENT(IN)    :: ip1jmp1

  • LMDZ6/trunk/libf/dyn3d/conf_gcm.f90

    r5268 r5271  
    1818  USE temps_mod, ONLY: calend, year_len
    1919
    20   IMPLICIT NONE
     20  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     21IMPLICIT NONE
    2122  !-----------------------------------------------------------------------
    2223  !     Auteurs :   L. Fairhead , P. Le Van  .
    … …  
    2526
    2627  !     tapedef   :
    27   !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
     28  !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para-
    2829  !     -metres  du zoom  avec  celles lues sur le fichier start .
    2930
    … …  
    3334  !   Declarations :
    3435  !   --------------
    35   include "dimensions.h"
     36
    3637  include "paramet.h"
    3738  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3d/covnat.F90

    r5246 r5271  
    33!
    44SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    56  IMPLICIT NONE
    67
    … …  
    1920  !=======================================================================
    2021
    21 #include "dimensions.h"
    22 #include "paramet.h"
    23 #include "comgeom.h"
     22INCLUDE "paramet.h"
     23INCLUDE "comgeom.h"
    2424
    2525  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d/dissip.f90

    r5246 r5271  
    66  USE comconst_mod, ONLY: dtdiss
    77
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910
    1011
    … …  
    2728  !   -------------
    2829
    29   include "dimensions.h"
     30
    3031  include "paramet.h"
    3132  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/dteta1.f90

    r5246 r5271  
    33!
    44SUBROUTINE dteta1 ( teta, pbaru, pbarv, dteta)
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    56  IMPLICIT NONE
    67
    … …  
    2021  !=======================================================================
    2122
    22 
    23   include "dimensions.h"
    2423  include "paramet.h"
    2524

  • LMDZ6/trunk/libf/dyn3d/dudv1.F90

    r5246 r5271  
    33!
    44SUBROUTINE dudv1 ( vorpot, pbaru, pbarv, du, dv )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67  !
    78  !-----------------------------------------------------------------------
    … …  
    1920  !-----------------------------------------------------------------------
    2021
    21 #include "dimensions.h"
    22 #include "paramet.h"
     22
     23INCLUDE "paramet.h"
    2324
    2425  REAL :: vorpot( ip1jm,llm ) ,pbaru( ip1jmp1,llm ) , &

  • LMDZ6/trunk/libf/dyn3d/dudv2.f90

    r5246 r5271  
    33!
    44SUBROUTINE dudv2 ( teta, pkf, bern, du, dv  )
    5 
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    66  IMPLICIT NONE
    77  !
    … …  
    2525  !
    2626  !=======================================================================
    27   !
    28   include "dimensions.h"
    2927  include "paramet.h"
    3028

  • LMDZ6/trunk/libf/dyn3d/dynetat0.f90

    r5268 r5271  
    2424  USE strings_mod, ONLY: strIdx
    2525
    26   IMPLICIT NONE
    27   include "dimensions.h"
     26  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     27IMPLICIT NONE
     28
    2829  include "paramet.h"
    2930  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/dynredem.f90

    r5268 r5271  
    1919  USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    2020 
    21   IMPLICIT NONE
    22   include "dimensions.h"
     21  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22IMPLICIT NONE
     23
    2324  include "paramet.h"
    2425  include "comgeom2.h"
    … …  
    167168  USE temps_mod, ONLY: itau_dyn, itaufin
    168169 
    169   IMPLICIT NONE
    170   include "dimensions.h"
     170  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     171IMPLICIT NONE
     172
    171173  include "paramet.h"
    172174  include "description.h"

  • LMDZ6/trunk/libf/dyn3d/dynredem_mod.f90

    r5268 r5271  
    11MODULE dynredem_mod
    2 
    32  USE netcdf
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    44  PRIVATE
    55  PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
    66  PUBLIC :: cre_var, put_var1, put_var2, fil, modname, msg
    7   include "dimensions.h"
    87  include "paramet.h"
    98  CHARACTER(LEN=256), SAVE :: fil, modname

  • LMDZ6/trunk/libf/dyn3d/fluxstokenc.f90

    r5268 r5271  
    1313  !cc   ..   Modif. P. Le Van  ( 20/12/97 )  ...
    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/friction.f90

    r5268 r5271  
    44!=======================================================================
    55SUBROUTINE friction(ucov,vcov,pdt)
    6 
    76  USE control_mod
    87  USE IOIPSL
    9 
    108  USE comconst_mod, ONLY: pi
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1110  IMPLICIT NONE
    1211
    … …  
    2322  !=======================================================================
    2423
    25   include "dimensions.h"
    2624  include "paramet.h"
    2725  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/gcm.f90

    r5268 r5271  
    55!
    66PROGRAM gcm
    7 
    87  USE IOIPSL
    9 
    10 
    11 
    12 ! ug Pour les sorties XIOS
    13   USE wxios
    14 
     8  USE wxios  ! ug Pour les sorties XIOS
    159  USE filtreg_mod
    1610  USE infotrac, ONLY: nqtot, init_infotrac
    … …  
    2216  USE logic_mod, ONLY: ecripar, iflag_phys, read_start
    2317  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    24 
    2518!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    2619  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    … …  
    2922  USE iniphysiq_mod, ONLY: iniphysiq
    3023!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    31 
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3225  IMPLICIT NONE
    3326
    … …  
    6255  !   -------------
    6356
    64   include "dimensions.h"
    6557  include "paramet.h"
    6658  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3d/groupe.f90

    r5246 r5271  
    66  use comconst_mod, only: ngroup
    77
    8   implicit none
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9implicit none
    910
    1011  !   sous-programme servant a fitlrer les champs de flux de masse aux
    … …  
    1920  !   pas besoin de w en entree.
    2021
    21   include "dimensions.h"
     22
    2223  include "paramet.h"
    2324  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/groupeun.f90

    r5246 r5271  
    66  USE comconst_mod, ONLY: ngroup
    77
    8   IMPLICIT NONE
    9 
    10   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
     11
    1112  include "paramet.h"
    1213  include "comgeom2.h"
    … …  
    140141  USE comconst_mod, ONLY: ngroup
    141142
    142   IMPLICIT NONE
    143 
    144   include "dimensions.h"
     143  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     144IMPLICIT NONE
     145
     146
    145147  include "paramet.h"
    146148  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/guide_mod.f90

    r5270 r5271  
    7878    USE serre_mod, ONLY: grossismx
    7979
    80     IMPLICIT NONE
    81  
    82     INCLUDE "dimensions.h"
     80    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     81IMPLICIT NONE
     82
     83
    8384    INCLUDE "paramet.h"
    8485
    … …  
    359360    USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
    360361 
    361     IMPLICIT NONE
    362  
    363     INCLUDE "dimensions.h"
     362    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     363IMPLICIT NONE
     364
     365
    364366    INCLUDE "paramet.h"
    365367    INCLUDE "iniprint.h"
    … …  
    610612    USE comconst_mod, ONLY: pi
    611613   
    612     IMPLICIT NONE
    613 
    614     INCLUDE "dimensions.h"
     614    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     615IMPLICIT NONE
     616
     617
    615618    INCLUDE "paramet.h"
    616619    INCLUDE "comgeom.h"
    … …  
    676679  use comconst_mod, only: kappa, cpp
    677680  use comvert_mod, only: preff, pressure_exner, bp, ap
    678   IMPLICIT NONE
    679 
    680   include "dimensions.h"
     681  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     682IMPLICIT NONE
     683
     684
    681685  include "paramet.h"
    682686  include "comgeom2.h"
    … …  
    926930    use serre_mod, only: clon, clat, grossismx, grossismy
    927931   
    928     implicit none
    929 
    930     include "dimensions.h"
     932    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     933implicit none
     934
     935
    931936    include "paramet.h"
    932937    include "comgeom2.h"
    … …  
    10961101    use netcdf, only: NF90_GET_VAR, nf90_noerr
    10971102
    1098     IMPLICIT NONE
    1099 
    1100     include "dimensions.h"
     1103    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1104IMPLICIT NONE
     1105
     1106
    11011107    include "paramet.h"
    11021108
    … …  
    13961402    use netcdf, only: nf90_get_var, nf90_noerr
    13971403
    1398     IMPLICIT NONE
    1399 
    1400     include "dimensions.h"
     1404    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1405IMPLICIT NONE
     1406
     1407
    14011408    include "paramet.h"
    14021409
    … …  
    16601667    use netcdf, only: nf90_float, nf90_def_var, nf90_put_var
    16611668   
    1662     IMPLICIT NONE
    1663 
    1664     INCLUDE "dimensions.h"
     1669    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1670IMPLICIT NONE
     1671
     1672
    16651673    INCLUDE "paramet.h"
    16661674    INCLUDE "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/iniacademic.f90

    r5268 r5271  
    2626  ! of the American Meteorological Society, 75, 1825.
    2727
    28   IMPLICIT NONE
     28  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29IMPLICIT NONE
    2930
    3031  !   Declararations:
    3132  !   ---------------
    3233
    33   include "dimensions.h"
     34
    3435  include "paramet.h"
    3536  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/integrd.f90

    r5246 r5271  
    1313  USE temps_mod, ONLY: dt
    1414
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617
    1718
    … …  
    3132  !   -------------
    3233
    33   include "dimensions.h"
     34
    3435  include "paramet.h"
    3536  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/leapfrog.F90

    r5267 r5271  
    55!
    66SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,q,time_0)
    7 
    8 
    97  !IM : pour sortir les param. du modele dans un fis. netcdf 110106
    108  use IOIPSL
    … …  
    2624  USE strings_mod, ONLY: msg
    2725  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    28 
     26  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2927  IMPLICIT NONE
    3028
    … …  
    5957  !   Declarations:
    6058  !   -------------
    61 
    62   include "dimensions.h"
    6359  include "paramet.h"
    6460  include "comdissnew.h"
    … …  
    452448     ! IF (first) THEN
    453449     !  first=.false.
    454   !#include "ini_paramLMDZ_dyn.h"
     450  !INCLUDE "ini_paramLMDZ_dyn.h"
    455451     ! ENDIF
    456452  !
    457   !#include "write_paramLMDZ_dyn.h"
     453  !INCLUDE "write_paramLMDZ_dyn.h"
    458454
    459455IF (CPPKEY_PHYS) THEN
    … …  
    708704  ! For some Grads outputs of fields
    709705          if (output_grads_dyn) then
    710 #include "write_grads_dyn.h"
     706INCLUDE "write_grads_dyn.h"
    711707          endif
    712708         endif ! of if (leapf.or.(.not.leapf.and.(.not.forward)))
    … …  
    831827  ! For some Grads outputs
    832828            if (output_grads_dyn) then
    833 #include "write_grads_dyn.h"
     829INCLUDE "write_grads_dyn.h"
    834830            endif
    835831

  • LMDZ6/trunk/libf/dyn3d/qminimum.f90

    r5246 r5271  
    66  USE infotrac, ONLY: niso, ntiso, iqIsoPha, tracers, addPhase
    77  USE strings_mod, ONLY: strIdx
    8   IMPLICIT none
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT none
    910  !
    1011  !  -- Objet : Traiter les valeurs trop petites (meme negatives)
    1112  !         pour l'eau vapeur et l'eau liquide
    1213  !
    13   include "dimensions.h"
     14
    1415  include "paramet.h"
    1516  !

  • LMDZ6/trunk/libf/dyn3d/replay3d.f90

    r5268 r5271  
    55!
    66PROGRAM replay3d
    7 
    8 
    9 
    10 USE comvert_mod, only :  preff, pa
    11 USE inigeomphy_mod, ONLY: inigeomphy
    12 
    13 
     7  USE comvert_mod, only :  preff, pa
     8  USE inigeomphy_mod, ONLY: inigeomphy
    149  USE control_mod
    1510  USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref, &
    … …  
    2116        grossismx, grossismy, dzoomx, dzoomy,taux,tauy
    2217  USE mod_const_mpi, ONLY: comm_lmdz
    23 
    24 
    25 
    2618!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    2719  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    … …  
    3022  USE iniphysiq_mod, ONLY: iniphysiq
    3123!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3225
    3326  IMPLICIT NONE
    … …  
    6255  !   Declarations:
    6356  !   -------------
    64 
    65   include "dimensions.h"
    6657  include "paramet.h"
    6758  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3d/sw_case_williamson91_6.f90

    r5246 r5271  
    2929  USE comvert_mod, ONLY: ap, bp, preff
    3030
    31   IMPLICIT NONE
     31  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     32IMPLICIT NONE
    3233  !-----------------------------------------------------------------------
    3334  !   Declararations:
    3435  !   ---------------
    3536
    36   include "dimensions.h"
     37
    3738  include "paramet.h"
    3839  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/tetaleveli1j.F90

    r5246 r5271  
    77  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    88   ! USE dimphy
    9   IMPLICIT none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT none
    1011
    11 #include "dimensions.h"
    12   !cccc#include "dimphy.h"
     12
     13  !ccccINCLUDE "dimphy.h"
    1314
    1415  !================================================================
    … …  
    4546  ! REAL ptop, pbot, aist(klon), aisb(klon)
    4647  !
    47 #include "paramet.h"
     48INCLUDE "paramet.h"
    4849  !
    4950  INTEGER :: lt(ip1jm), lb(ip1jm)
    … …  
    5758  !=====================================================================
    5859  if (lnew) then
    59   !   on réinitialise les réindicages et les poids
     60  !   on r�initialise les r�indicages et les poids
    6061  !=====================================================================
    6162
    … …  
    9697  !
    9798  ! ...   Modif . P. Le Van    ( 20/01/98) ....
    98   !   Modif Frédéric Hourdin (3/01/02)
     99  !   Modif Fr�d�ric Hourdin (3/01/02)
    99100
    100101    IF(pgcm(i,lb(i)).EQ.0.OR. &

  • LMDZ6/trunk/libf/dyn3d/tetaleveli1j1.F90

    r5246 r5271  
    77  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    88   ! USE dimphy
    9   IMPLICIT none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT none
    1011
    11 #include "dimensions.h"
    12   !ccc#include "dimphy.h"
     12
     13  !cccINCLUDE "dimphy.h"
    1314
    1415  !================================================================
    … …  
    4546  ! REAL ptop, pbot, aist(klon), aisb(klon)
    4647  !
    47 #include "paramet.h"
     48INCLUDE "paramet.h"
    4849  !
    4950  INTEGER :: lt(ip1jmp1), lb(ip1jmp1)
    … …  
    5758  !=====================================================================
    5859  if (lnew) then
    59   !   on réinitialise les réindicages et les poids
     60  !   on r�initialise les r�indicages et les poids
    6061  !=====================================================================
    6162
    … …  
    9697  !
    9798  ! ...   Modif . P. Le Van    ( 20/01/98) ....
    98   !   Modif Frédéric Hourdin (3/01/02)
     99  !   Modif Fr�d�ric Hourdin (3/01/02)
    99100
    100101    IF(pgcm(i,lb(i)).EQ.0.OR. &

  • LMDZ6/trunk/libf/dyn3d/top_bound.F90

    r5246 r5271  
    88  USE comvert_mod, ONLY: presnivs, preff, scaleheight
    99
    10   IMPLICIT NONE
    11   !
    12   include "dimensions.h"
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
     12  !
     13
    1314  include "paramet.h"
    1415  include "comgeom2.h"
    … …  
    2728  !   ------
    2829  !
    29   !   Dissipation linéaire (ex top_bound de la physique)
     30  !   Dissipation lin�aire (ex top_bound de la physique)
    3031  !
    3132  !=======================================================================
    … …  
    5455
    5556
    56 #include "comdissipn.h"
    57 #include "iniprint.h"
     57INCLUDE "comdissipn.h"
     58INCLUDE "iniprint.h"
    5859
    5960  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d/vlsplt.F90

    r5248 r5271  
    1919  !
    2020  !   --------------------------------------------------------------------
    21   IMPLICIT NONE
    22   !
    23   include "dimensions.h"
     21  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22IMPLICIT NONE
     23  !
     24
    2425  include "paramet.h"
    2526
    … …  
    136137  !
    137138  !   --------------------------------------------------------------------
    138   IMPLICIT NONE
    139   !
    140   include "dimensions.h"
     139  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     140IMPLICIT NONE
     141  !
     142
    141143  include "paramet.h"
    142144  include "iniprint.h"
    … …  
    495497  !   --------------------------------------------------------------------
    496498  USE comconst_mod, ONLY: pi
    497   IMPLICIT NONE
    498   !
    499   include "dimensions.h"
     499  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     500IMPLICIT NONE
     501  !
     502
    500503  include "paramet.h"
    501504  include "comgeom.h"
    … …  
    857860  !
    858861  !   --------------------------------------------------------------------
    859   IMPLICIT NONE
    860   !
    861   include "dimensions.h"
     862  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     863IMPLICIT NONE
     864  !
     865
    862866  include "paramet.h"
    863867  !
    … …  
    10141018 ! SUBROUTINE minmaxq(zq,qmin,qmax,comment)
    10151019!
    1016 !#include "dimensions.h"
    1017 !#include "paramet.h"
     1020!INCLUDE "dimensions_mod.f90"
     1021!INCLUDE "paramet.h"
    10181022
    10191023!  CHARACTER*(*) comment
    … …  
    10431047!  end
    10441048subroutine minmaxq(zq,qmin,qmax,comment)
    1045 
    1046 #include "dimensions.h"
    1047 #include "paramet.h"
     1049  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1050  INCLUDE "paramet.h"
    10481051
    10491052  character(len=20) :: comment

  • LMDZ6/trunk/libf/dyn3d/vlspltqs.F90

    r5246 r5271  
    2626  USE comconst_mod, ONLY: cpp
    2727  USE logic_mod, ONLY: adv_qsat_liq
    28   IMPLICIT NONE
    29   !
    30   include "dimensions.h"
     28  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29IMPLICIT NONE
     30  !
     31
    3132  include "paramet.h"
    3233
    … …  
    190191  !
    191192  !   --------------------------------------------------------------------
    192   IMPLICIT NONE
    193   !
    194   include "dimensions.h"
     193  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     194IMPLICIT NONE
     195  !
     196
    195197  include "paramet.h"
    196198  !
    … …  
    554556  USE comconst_mod, ONLY: pi
    555557
    556   IMPLICIT NONE
    557   !
    558   include "dimensions.h"
     558  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     559IMPLICIT NONE
     560  !
     561
    559562  include "paramet.h"
    560563  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/wrgrads.F90

    r5246 r5271  
    1212  !    titlevar   Titre
    1313
    14 #include "gradsdef.h"
     14INCLUDE "gradsdef.h"
    1515
    1616  !   arguments
Note: See TracChangeset for help on using the changeset viewer.