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

    r5134 r5159  
    1313  SUBROUTINE Init_filtre_fft(coeffu, modfrstu, jfiltnu, jfiltsu, coeffv, modfrstv, jfiltnv, jfiltsv)
    1414    USE lmdz_fft
     15USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    1516    IMPLICIT NONE
    16     INCLUDE 'dimensions.h'
     17
    1718    REAL, INTENT(IN) :: coeffu(iim, jjm)
    1819    INTEGER, INTENT(IN) :: modfrstu(jjm)
    … …  
    110111    USE parallel_lmdz,ONLY: OMP_CHUNK
    111112#endif
     113USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    112114    IMPLICIT NONE
    113     INCLUDE 'dimensions.h'
     115
    114116    INTEGER, INTENT(IN) :: jjb
    115117    INTEGER, INTENT(IN) :: jje
    … …  
    190192    USE parallel_lmdz,ONLY: OMP_CHUNK
    191193#endif
     194USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    192195    IMPLICIT NONE
    193     INCLUDE 'dimensions.h'
     196
    194197    INTEGER, INTENT(IN) :: jjb
    195198    INTEGER, INTENT(IN) :: jje
    … …  
    251254    USE parallel_lmdz,ONLY: OMP_CHUNK
    252255#endif
     256USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    253257    IMPLICIT NONE
    254     INCLUDE 'dimensions.h'
     258
    255259    INTEGER, INTENT(IN) :: jjb
    256260    INTEGER, INTENT(IN) :: jje
Note: See TracChangeset for help on using the changeset viewer.