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.GENERIC/libf/dynlonlat_phylonlat
Files:
9 edited

Legend:

Unmodified
Added
Removed

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

    r1403 r1422  
    77c   .........
    88      USE infotrac, ONLY: tname, nqtot
     9      USE comvert_mod, ONLY: preff
     10      USE comconst_mod, ONLY: dtphys,kappa,cpp,pi
    911      IMPLICIT NONE
    1012c=======================================================================
    … …  
    6365#include "dimensions.h"
    6466#include "paramet.h"
    65 #include "temps.h"
    6667
    6768      INTEGER ngridmx,nq
    6869      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    6970
    70 #include "comconst.h"
    71 #include "comvert.h"
    7271#include "comgeom2.h"
    7372!#include "control.h"

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/datareadnc.F

    r1403 r1422  
    4545! to use  'getin'
    4646      USE ioipsl_getincom
     47      USE comconst_mod, ONLY: g,pi
    4748      implicit none
    4849
    … …  
    5051#include "paramet.h"
    5152#include "comgeom.h"
    52 #include "comconst.h"
    5353#include "netcdf.inc"
    5454
    … …  
    9595      DIMENSION string(4)
    9696
    97 #include "fxyprim.h"
     97!#include "fxyprim.h"
    9898
    9999      pi=2.*ASIN(1.)

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/grid_noro1.F

    r1403 r1422  
    5151c     IMPLICIT INTEGER (I,J)
    5252c     IMPLICIT REAL(X,Z)
     53
     54       USE comconst_mod, ONLY: rad
     55
    5356       implicit none
    5457       integer iusn,jusn,iext
    … …  
    5760c!-*-      include 'comcstfi.h'
    5861#include "dimensions.h"
    59 #include "comconst.h"
    6062c!-*-
    6163c!-*-      parameter(iim=cols,jjm=rows)

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/ini_archive.F

    r1403 r1422  
    3737      USE comsoil_h
    3838!      use control_mod
     39      USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt
     40      USE comconst_mod, ONLY: daysec,dtvr,rad,omeg,g,kappa,pi
    3941      implicit none
    4042
    … …  
    4244!#include "dimphys.h"
    4345#include "paramet.h"
    44 #include "comconst.h"
    45 #include "comvert.h"
    4646#include "comgeom.h"
    47 #include "temps.h"
    48 #include "ener.h"
    49 #include "logic.h"
    50 #include "serre.h"
    5147!#include "control.h"
    5248

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/iniphysiq.F90

    r1403 r1422  
    1919use infotrac, only : nqtot ! number of advected tracers
    2020use planete_mod, only: ini_planete_mod
     21USE comvert_mod, ONLY: ap,bp,preff
    2122
    2223implicit none
    2324include "dimensions.h"
    24 include "comvert.h"
    2525include "iniprint.h"
    2626

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/lect_start_archive.F

    r1421 r1422  
    1313! to use  'getin'
    1414      USE callkeys_mod, ONLY: ok_slab_ocean
     15      USE comvert_mod, ONLY: ap,bp,aps,bps,preff
     16      USE comconst_mod, ONLY: kappa,g,pi
    1517
    1618c=======================================================================
    … …  
    3537!#include "planete.h"
    3638#include "paramet.h"
    37 #include "comconst.h"
    38 #include "comvert.h"
    3939#include "comgeom2.h"
    4040!#include "control.h"
    41 !#include "logic.h"
    42 #include "ener.h"
    43 #include "temps.h"
    4441#include "netcdf.inc"
    4542!#include"advtrac.h"

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/newstart.F

    r1421 r1422  
    3131      use slab_ice_h, only:noceanmx
    3232      use filtreg_mod, only: inifilr
     33      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff
     34      USE comconst_mod, ONLY: lllm,daysec,dtvr,dtphys,cpp,kappa,
     35     .                  rad,omeg,g,r,pi
     36      USE serre_mod, ONLY: alphax
     37      USE temps_mod, ONLY: day_ini
     38      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    3339      implicit none
    3440
    … …  
    3844!#include "planete.h"
    3945#include "paramet.h"
    40 #include "comconst.h"
    41 #include "comvert.h"
    4246#include "comgeom2.h"
    4347!#include "control.h"
    44 #include "logic.h"
    45 #include "ener.h"
    46 #include "temps.h"
    4748#include "comdissnew.h"
    48 #include "serre.h"
    4949#include "netcdf.inc"
    5050!#include "advtrac.h"

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/start2archive.F

    r1415 r1422  
    3131      USE callkeys_mod, ONLY: ok_slab_ocean
    3232      use filtreg_mod, only: inifilr
     33      USE comvert_mod, ONLY: ap,bp
     34      USE comconst_mod, ONLY: cpp,g
     35      USE logic_mod, ONLY: grireg
     36      USE temps_mod, ONLY: day_ini
    3337      implicit none
    3438
    … …  
    3640      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)
    3741#include "paramet.h"
    38 #include "comconst.h"
    3942#include "comdissip.h"
    40 #include "comvert.h"
    4143#include "comgeom.h"
    42 #include "logic.h"
    43 #include "temps.h"
    4444!#include "control.h"
    45 #include "ener.h"
    4645
    4746!#include "dimphys.h"

  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/write_archive.F

    r1403 r1422  
    3737#include "dimensions.h"
    3838#include "paramet.h"
    39 #include "comvert.h"
    4039#include "comgeom.h"
    41 #include "temps.h"
    4240#include "netcdf.inc"
    4341
Note: See TracChangeset for help on using the changeset viewer.