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/mod_xios_dyn3dmem.F90

    r5158 r5159  
    4040     USE lmdz_comgeom
    4141
    42      IMPLICIT NONE
    43 
    44      INCLUDE 'dimensions.h'
    45      INCLUDE "paramet.h"
     42USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     43  USE lmdz_paramet
     44     IMPLICIT NONE
     45
     46
     47
    4648
    4749     TYPE(xios_duration) :: tstep_xios
    … …  
    132134
    133135     USE parallel_lmdz
    134      IMPLICIT NONE
    135      INCLUDE 'dimensions.h'
    136      INCLUDE 'paramet.h'
     136USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     137  USE lmdz_paramet
     138     IMPLICIT NONE
     139
     140
    137141     CHARACTER(LEN=*)   :: name
    138142     REAL, DIMENSION(ij_begin:ij_end) :: Field
    … …  
    153157
    154158     USE parallel_lmdz
    155      IMPLICIT NONE
    156      INCLUDE 'dimensions.h'
    157      INCLUDE 'paramet.h'
     159USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     160  USE lmdz_paramet
     161     IMPLICIT NONE
     162
     163
    158164     CHARACTER(LEN=*)   :: name
    159165     REAL, DIMENSION(ij_begin:ij_end,llm) :: Field
    … …  
    186192
    187193     USE parallel_lmdz
    188      IMPLICIT NONE
    189      INCLUDE 'dimensions.h'
    190      INCLUDE 'paramet.h'
     194USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     195  USE lmdz_paramet
     196     IMPLICIT NONE
     197
     198
    191199     CHARACTER(LEN=*)   :: name
    192200     REAL, DIMENSION(ij_begin:ij_end) :: Field
    … …  
    216224
    217225     USE parallel_lmdz
    218      IMPLICIT NONE
    219      INCLUDE 'dimensions.h'
    220      INCLUDE 'paramet.h'
     226USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     227  USE lmdz_paramet
     228     IMPLICIT NONE
     229
     230
    221231     CHARACTER(LEN=*)   :: name
    222232     REAL, DIMENSION(ij_begin:ij_end,llm) :: Field
Note: See TracChangeset for help on using the changeset viewer.