Ignore:
Timestamp:
Jul 22, 2016, 11:28:39 AM (8 years ago)
Author:
Ehouarn Millour
Message:

Cleanup in the dynamics: turn serre.h into module serre_mod.F90
EM

Location:
LMDZ5/trunk/libf/filtrez
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/filtrez/filtreg_mod.F90

    r1907 r2598  
    1414  USE mod_filtre_fft_loc, ONLY : Init_filtre_fft_loc=>Init_filtre_fft    !
    1515#endif
     16  USE serre_mod, ONLY: alphax
    1617    !    ... H. Upadhyaya, O.Sharma   ...
    1718    !
     
    2223    !     Correction  le 28/10/97    P. Le Van .
    2324    !  -------------------------------------------------------------------
    24 #include "dimensions.h"
    25 #include "paramet.h"
     25    include "dimensions.h"
     26    include "paramet.h"
    2627    !  -------------------------------------------------------------------
    27 #include "comgeom.h"
    28 #include "coefils.h"
    29 #include "logic.h"
    30 #include "serre.h"
     28    include "comgeom.h"
     29    include "coefils.h"
     30    include "logic.h"
    3131
    3232    REAL  dlonu(iim),dlatu(jjm)
  • LMDZ5/trunk/libf/filtrez/inifgn.F

    r1907 r2598  
    88      IMPLICIT NONE
    99c
    10 #include "dimensions.h"
    11 #include "paramet.h"
    12 #include "comgeom.h"
    13 #include "serre.h"
     10      include "dimensions.h"
     11      include "paramet.h"
     12      include "comgeom.h"
    1413
    1514c
     
    2019      INTEGER i,j,k,imm1,nrot
    2120C
    22 #include "coefils.h"
     21      include "coefils.h"
    2322c
    2423      EXTERNAL SSUM, acc,eigen,jacobi
Note: See TracChangeset for help on using the changeset viewer.