Ignore:
Timestamp:
Oct 24, 2024, 4:25:39 PM (9 months ago)
Author:
abarral
Message:

Move dimensions.h into a module
Nb: doesn't compile yet

Location:
LMDZ6/trunk/libf/filtrez
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/filtrez/eigen.f90

    r5246 r5271  
    33!
    44SUBROUTINE eigen( e,d)
    5   IMPLICIT NONE
    6   INCLUDE "dimensions.h"
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
     7
    78  real :: e( iim,iim ), d( iim )
    89  real :: asm( iim )

  • LMDZ6/trunk/libf/filtrez/filtreg.F90

    r5246 r5271  
    77  USE filtreg_mod
    88
    9   IMPLICIT NONE
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT NONE
    1011  !=======================================================================
    1112  !
    … …  
    4647  !
    4748  !
    48   INCLUDE "dimensions.h"
     49
    4950  INCLUDE "paramet.h"
    5051  INCLUDE "coefils.h"

  • LMDZ6/trunk/libf/filtrez/filtreg_mod.F90

    r4519 r5271  
    2020    !    ... H. Upadhyaya, O.Sharma   ...
    2121    !
    22     IMPLICIT NONE
     22    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     23IMPLICIT NONE
    2324    !
    2425    !     version 3 .....
    … …  
    2627    !     Correction  le 28/10/97    P. Le Van .
    2728    !  -------------------------------------------------------------------
    28     include "dimensions.h"
     29
    2930    include "paramet.h"
    3031    !  -------------------------------------------------------------------

  • LMDZ6/trunk/libf/filtrez/inifgn.F90

    r5246 r5271  
    66  !    ...  H.Upadyaya , O.Sharma  ...
    77  !
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910  !
    10   include "dimensions.h"
     11
    1112  include "paramet.h"
    1213  include "comgeom.h"

  • LMDZ6/trunk/libf/filtrez/mod_fft_fftw.F90

    r1907 r5271  
    1818  SUBROUTINE Init_fft(iim,nvectmax)
    1919  IMPLICIT NONE
    20 #include <fftw3.f>
     20INCLUDE <fftw3.f>
    2121    INTEGER :: iim
    2222    INTEGER :: nvectmax
    … …  
    8686  SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
    8787    IMPLICIT NONE
    88 #include <fftw3.f>
     88INCLUDE <fftw3.f>
    8989    INTEGER,INTENT(IN)     :: nb_vect
    9090    REAL,INTENT(IN)        :: vect(vsize+inc,nb_vect)
    … …  
    9999  SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
    100100    IMPLICIT NONE
    101 #include <fftw3.f>
     101INCLUDE <fftw3.f>
    102102    INTEGER,INTENT(IN)     :: nb_vect
    103103    REAL,INTENT(OUT)       :: vect(vsize+inc,nb_vect)

  • LMDZ6/trunk/libf/filtrez/mod_filtre_fft.F90

    r1907 r5271  
    1414  SUBROUTINE Init_filtre_fft(coeffu,modfrstu,jfiltnu,jfiltsu,coeffv,modfrstv,jfiltnv,jfiltsv)
    1515    USE mod_fft
    16     IMPLICIT NONE
    17     include 'dimensions.h'
     16    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
     18
    1819    REAL,   INTENT(IN) :: coeffu(iim,jjm)
    1920    INTEGER,INTENT(IN) :: modfrstu(jjm)
    … …  
    120121    USE parallel_lmdz,ONLY : OMP_CHUNK
    121122#endif
    122     IMPLICIT NONE
    123     include 'dimensions.h'
     123    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     124IMPLICIT NONE
     125
    124126    INTEGER,INTENT(IN) :: nlat
    125127    INTEGER,INTENT(IN) :: jj_begin
    … …  
    181183    USE parallel_lmdz,ONLY : OMP_CHUNK
    182184#endif
    183     IMPLICIT NONE
    184     INCLUDE 'dimensions.h'
     185    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     186IMPLICIT NONE
     187
    185188    INTEGER,INTENT(IN) :: nlat
    186189    INTEGER,INTENT(IN) :: jj_begin
    … …  
    243246    USE parallel_lmdz,ONLY : OMP_CHUNK
    244247#endif
    245     IMPLICIT NONE
    246     INCLUDE 'dimensions.h'
     248    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     249IMPLICIT NONE
     250
    247251    INTEGER,INTENT(IN) :: nlat
    248252    INTEGER,INTENT(IN) :: jj_begin

  • LMDZ6/trunk/libf/filtrez/mod_filtre_fft_loc.F90

    r1907 r5271  
    1010  SUBROUTINE Init_filtre_fft(coeffu,modfrstu,jfiltnu,jfiltsu,coeffv,modfrstv,jfiltnv,jfiltsv)
    1111    USE mod_fft
    12     IMPLICIT NONE
    13     include 'dimensions.h'
     12    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
     14
    1415    REAL,   INTENT(IN) :: coeffu(iim,jjm)
    1516    INTEGER,INTENT(IN) :: modfrstu(jjm)
    … …  
    109110    USE parallel_lmdz,ONLY : OMP_CHUNK
    110111#endif
    111     IMPLICIT NONE
    112     include 'dimensions.h'
     112    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     113IMPLICIT NONE
     114
    113115    INTEGER,INTENT(IN) :: jjb
    114116    INTEGER,INTENT(IN) :: jje
    … …  
    189191    USE parallel_lmdz,ONLY : OMP_CHUNK
    190192#endif
    191     IMPLICIT NONE
    192     INCLUDE 'dimensions.h'
     193    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     194IMPLICIT NONE
     195
    193196    INTEGER,INTENT(IN) :: jjb
    194197    INTEGER,INTENT(IN) :: jje
    … …  
    252255    USE parallel_lmdz,ONLY : OMP_CHUNK
    253256#endif
    254     IMPLICIT NONE
    255     INCLUDE 'dimensions.h'
     257    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     258IMPLICIT NONE
     259
    256260    INTEGER,INTENT(IN) :: jjb
    257261    INTEGER,INTENT(IN) :: jje
Note: See TracChangeset for help on using the changeset viewer.