Ignore:
Timestamp:
Apr 30, 2015, 12:33:45 PM (10 years ago)
Author:
milmd
Message:

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

Location:
trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/calfis.F

    r1403 r1422  
    3636! used only for zonal averages
    3737      USE moyzon_mod
     38      USE comvert_mod, ONLY: presnivs,preff
     39      USE comconst_mod, ONLY: daysec,dtvr,dtphys,kappa,cpp,g,rad,pi
     40      USE logic_mod, ONLY: moyzon_ch,moyzon_mu
    3841
    3942      IMPLICIT NONE
    … …  
    9396#include "dimensions.h"
    9497#include "paramet.h"
    95 #include "temps.h"
    96 #include "logic.h"
    9798
    9899      INTEGER ngridmx
    99100      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    100101
    101 #include "comconst.h"
    102 #include "comvert.h"
    103102#include "comgeom2.h"
    104103#include "iniprint.h"

  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/calfis_p.F

    r1403 r1422  
    4444      USE infotrac, ONLY: nqtot, niadv, tname
    4545      USE control_mod, ONLY: planet_type, nsplit_phys
     46      USE comvert_mod, ONLY: preff,presnivs
     47      USE comconst_mod, ONLY: daysec,dtvr,dtphys,kappa,cpp,g,rad,pi
     48      USE logic_mod, ONLY: moyzon_ch,moyzon_mu
    4649
    4750      IMPLICIT NONE
    … …  
    102105#include "dimensions.h"
    103106#include "paramet.h"
    104 #include "temps.h"
    105 #include "logic.h"
    106107
    107108      INTEGER ngridmx
    108109      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    109110
    110 #include "comconst.h"
    111 #include "comvert.h"
    112111#include "comgeom2.h"
    113112#include "iniprint.h"
Note: See TracChangeset for help on using the changeset viewer.