Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (7 weeks ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.F90

    r5158 r5159  
    7878    USE serre_mod, ONLY: grossismx
    7979
     80USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     81  USE lmdz_paramet
    8082    IMPLICIT NONE
    8183
    82     INCLUDE "dimensions.h"
    83     INCLUDE "paramet.h"
     84
     85
    8486
    8587    INTEGER :: error, ncidpl, rid, rcod
    … …  
    362364    USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
    363365
     366USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     367  USE lmdz_paramet
    364368    IMPLICIT NONE
    365369
    366     INCLUDE "dimensions.h"
    367     INCLUDE "paramet.h"
     370
     371
    368372
    369373    ! Variables entree
    … …  
    722726    ! field1=a*field1+alpha*field2
    723727
     728USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     729  USE lmdz_paramet
    724730    IMPLICIT NONE
    725     INCLUDE "dimensions.h"
    726     INCLUDE "paramet.h"
     731
     732
    727733
    728734    ! input variables
    … …  
    745751    ! field1=a*field1+alpha*field2
    746752
     753USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     754  USE lmdz_paramet
    747755    IMPLICIT NONE
    748     INCLUDE "dimensions.h"
    749     INCLUDE "paramet.h"
     756
     757
    750758
    751759    ! input variables
    … …  
    771779    USE lmdz_comgeom
    772780
     781USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     782  USE lmdz_paramet
    773783    IMPLICIT NONE
    774784
    775     INCLUDE "dimensions.h"
    776     INCLUDE "paramet.h"
     785
     786
    777787
    778788    ! input/output variables
    … …  
    843853    USE lmdz_comgeom
    844854
     855USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     856  USE lmdz_paramet
    845857    IMPLICIT NONE
    846858
    847     INCLUDE "dimensions.h"
    848     INCLUDE "paramet.h"
     859
     860
    849861
    850862    ! input/output variables
    … …  
    916928    USE lmdz_comgeom2
    917929
     930USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     931  USE lmdz_paramet
    918932    IMPLICIT NONE
    919933
    920     INCLUDE "dimensions.h"
    921     INCLUDE "paramet.h"
     934
     935
    922936
    923937    REAL, DIMENSION (iip1, jjb_u:jje_u), INTENT(IN) :: psi ! Psol gcm
    … …  
    14001414    USE lmdz_comgeom2
    14011415
     1416USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     1417  USE lmdz_paramet
    14021418    IMPLICIT NONE
    14031419
    1404     INCLUDE "dimensions.h"
    1405     INCLUDE "paramet.h"
     1420
     1421
    14061422
    14071423    ! input arguments :
    … …  
    15651581  SUBROUTINE guide_read(timestep)
    15661582
     1583USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     1584  USE lmdz_paramet
    15671585    IMPLICIT NONE
    15681586
    1569     INCLUDE "dimensions.h"
    1570     INCLUDE "paramet.h"
     1587
     1588
    15711589
    15721590    INTEGER, INTENT(IN) :: timestep
    … …  
    18801898  SUBROUTINE guide_read2D(timestep)
    18811899
     1900USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     1901  USE lmdz_paramet
    18821902    IMPLICIT NONE
    18831903
    1884     INCLUDE "dimensions.h"
    1885     INCLUDE "paramet.h"
     1904
     1905
    18861906
    18871907    INTEGER, INTENT(IN) :: timestep
    … …  
    21592179    USE lmdz_comgeom2
    21602180
     2181USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     2182  USE lmdz_paramet
    21612183    IMPLICIT NONE
    21622184
    2163     INCLUDE "dimensions.h"
    2164     INCLUDE "paramet.h"
     2185
     2186
    21652187
    21662188    ! Variables entree
    … …  
    23802402    USE parallel_lmdz
    23812403    USE mod_hallo
     2404USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     2405  USE lmdz_paramet
    23822406    IMPLICIT NONE
    2383     INCLUDE 'dimensions.h'
    2384     INCLUDE 'paramet.h'
     2407
     2408
    23852409
    23862410    CHARACTER (len = *) :: varname
    … …  
    24102434    USE lmdz_comgeom
    24112435
     2436USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     2437  USE lmdz_paramet
    24122438    IMPLICIT NONE
    2413     INCLUDE "dimensions.h"
    2414     INCLUDE "paramet.h"
     2439
     2440
    24152441    CALL barrier
    24162442    CALL dump2du(alpha_u(ijb_u:ije_u), '  alpha_u couche 1')
Note: See TracChangeset for help on using the changeset viewer.