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/dynphy_lonlat/phylmd
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

    r5267 r5271  
    4646  USE lmdz_mpi
    4747
    48   IMPLICIT NONE
     48  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     49IMPLICIT NONE
    4950
    5051!-------------------------------------------------------------------------------
    5152! Local variables:
    52   include "dimensions.h"
     53
    5354  include "paramet.h"
    5455  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r5251 r5271  
    4141  USE strings_mod, ONLY: strLower
    4242 
    43   IMPLICIT NONE
     43  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     44IMPLICIT NONE
    4445
    4546  PRIVATE
    … …  
    4748
    4849  include "iniprint.h"
    49   include "dimensions.h"
     50
    5051  include "paramet.h"
    5152  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r5268 r5271  
    5353
    5454  USE comconst_mod, ONLY: pi, dtvr
    55 
     55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5656  PRIVATE
    5757  PUBLIC :: etat0phys_netcdf
    5858
    5959  include "iniprint.h"
    60   include "dimensions.h"
    6160  include "paramet.h"
    6261  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5252 r5271  
    4242  USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
    4343  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
    44   IMPLICIT NONE
     44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     45IMPLICIT NONE
    4546
    4647  ! =======================================================================
    … …  
    4950  ! =======================================================================
    5051
    51   include "dimensions.h"
     52
    5253  include "paramet.h"
    5354  include "iniprint.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.f90

    r5268 r5271  
    1212  USE comconst_mod,       ONLY: im, pi
    1313  USE surface_data,       ONLY: landice_opt
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1415
    1516  CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice"
    … …  
    1718  PUBLIC :: start_init_subsurf
    1819  include "iniprint.h"
    19   include "dimensions.h"
    2020  include "paramet.h"
    2121  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

    r5249 r5271  
    8181  USE phys_cal_mod, ONLY: calend
    8282  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
    83   IMPLICIT NONE
     83  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     84IMPLICIT NONE
    8485!-------------------------------------------------------------------------------
    8586! Arguments:
    8687  include "iniprint.h"
    87   include "dimensions.h"
     88
    8889  include "paramet.h"
    8990  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask
    … …  
    330331  USE indice_sol_mod
    331332
    332   IMPLICIT NONE
    333   include "dimensions.h"
     333  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     334IMPLICIT NONE
     335
    334336  include "paramet.h"
    335337  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/test_disvert_m.f90

    r5268 r5271  
    11module test_disvert_m
    22
    3   implicit none
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4implicit none
    45
    56contains
    … …  
    1819
    1920    ! For llm:
    20     include "dimensions.h"
     21
    2122
    2223    ! Local:
Note: See TracChangeset for help on using the changeset viewer.