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

Put dimensions.h and paramet.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/limit_netcdf.f90

    r5136 r5159  
    8484    USE lmdz_comgeom2
    8585
     86  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     87  USE lmdz_paramet
    8688    IMPLICIT NONE
    8789    !-------------------------------------------------------------------------------
    8890    ! Arguments:
    89     INCLUDE "dimensions.h"
    90     INCLUDE "paramet.h"
     91
     92
    9193    REAL, DIMENSION(iip1, jjp1), INTENT(INOUT) :: masque ! land mask
    9294    REAL, DIMENSION(iip1, jjp1), INTENT(INOUT) :: phis   ! ground geopotential
    … …  
    335337      USE lmdz_comgeom2
    336338
     339USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     340  USE lmdz_paramet
    337341      IMPLICIT NONE
    338       INCLUDE "dimensions.h"
    339       INCLUDE "paramet.h"
     342
     343
    340344      !-----------------------------------------------------------------------------
    341345      ! Arguments:
Note: See TracChangeset for help on using the changeset viewer.