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/dyn3d/guide_mod.F90

    r5158 r5159  
    7777
    7878
     79USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     80  USE lmdz_paramet
    7981    IMPLICIT NONE
    8082
    81     INCLUDE "dimensions.h"
    82     INCLUDE "paramet.h"
     83
     84
    8385
    8486    INTEGER :: error, ncidpl, rid, rcod
    … …  
    359361
    360362
     363USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     364  USE lmdz_paramet
    361365    IMPLICIT NONE
    362366
    363     INCLUDE "dimensions.h"
    364     INCLUDE "paramet.h"
     367
     368
    365369
    366370
    … …  
    610614    USE lmdz_comgeom
    611615
     616USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     617  USE lmdz_paramet
    612618    IMPLICIT NONE
    613619
    614     INCLUDE "dimensions.h"
    615     INCLUDE "paramet.h"
     620
     621
    616622
    617623    ! input/output variables
    … …  
    678684    USE lmdz_comgeom2
    679685
     686USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     687  USE lmdz_paramet
    680688    IMPLICIT NONE
    681689
    682     INCLUDE "dimensions.h"
    683     INCLUDE "paramet.h"
     690
     691
    684692
    685693    REAL, DIMENSION (iip1, jjp1), INTENT(IN) :: psi ! Psol gcm
    … …  
    928936    USE lmdz_comgeom2
    929937
     938USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     939  USE lmdz_paramet
    930940    IMPLICIT NONE
    931941
    932     INCLUDE "dimensions.h"
    933     INCLUDE "paramet.h"
     942
     943
    934944
    935945    ! input arguments :
    … …  
    10931103  !=======================================================================
    10941104  SUBROUTINE guide_read(timestep)
     1105USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     1106  USE lmdz_paramet
    10951107    IMPLICIT NONE
    10961108
    1097     INCLUDE "dimensions.h"
    1098     INCLUDE "paramet.h"
     1109
     1110
    10991111
    11001112    INTEGER, INTENT(IN) :: timestep
    … …  
    13891401  !=======================================================================
    13901402  SUBROUTINE guide_read2D(timestep)
     1403USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     1404  USE lmdz_paramet
    13911405    IMPLICIT NONE
    13921406
    1393     INCLUDE "dimensions.h"
    1394     INCLUDE "paramet.h"
     1407
     1408
    13951409
    13961410    INTEGER, INTENT(IN) :: timestep
    … …  
    16531667    USE lmdz_comgeom2
    16541668
     1669USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     1670  USE lmdz_paramet
    16551671    IMPLICIT NONE
    16561672
    1657     INCLUDE "dimensions.h"
    1658     INCLUDE "paramet.h"
     1673
     1674
    16591675
    16601676    ! Variables entree
Note: See TracChangeset for help on using the changeset viewer.