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/filtrez/lmdz_filtre_fft.F90

    r5134 r5159  
    1616  SUBROUTINE init_filtre_fft(coeffu,modfrstu,jfiltnu,jfiltsu,coeffv,modfrstv,jfiltnv,jfiltsv)
    1717    USE lmdz_fft
     18USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    1819    IMPLICIT NONE
    19     INCLUDE 'dimensions.h'
     20
    2021    REAL,   INTENT(IN) :: coeffu(iim,jjm)
    2122    INTEGER,INTENT(IN) :: modfrstu(jjm)
    … …  
    122123    USE parallel_lmdz,ONLY: OMP_CHUNK
    123124#endif
     125USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    124126    IMPLICIT NONE
    125     INCLUDE 'dimensions.h'
     127
    126128    INTEGER,INTENT(IN) :: nlat
    127129    INTEGER,INTENT(IN) :: jj_begin
    … …  
    182184    USE parallel_lmdz,ONLY: OMP_CHUNK
    183185#endif
     186USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    184187    IMPLICIT NONE
    185     INCLUDE 'dimensions.h'
     188
    186189    INTEGER,INTENT(IN) :: nlat
    187190    INTEGER,INTENT(IN) :: jj_begin
    … …  
    243246    USE parallel_lmdz,ONLY: OMP_CHUNK
    244247#endif
     248USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    245249    IMPLICIT NONE
    246     INCLUDE 'dimensions.h'
     250
    247251    INTEGER,INTENT(IN) :: nlat
    248252    INTEGER,INTENT(IN) :: jj_begin
Note: See TracChangeset for help on using the changeset viewer.