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/phystd
Files:
6 added
6 deleted
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

    r1403 r1422  
    2323      use callkeys_mod, only: tracer,check_cpp_match,rings_shadow,
    2424     &          specOLR,water,pceil,ok_slab_ocean
     25      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff
     26      USE logic_mod, ONLY: hybrid,autozlevs
    2527      implicit none
    2628
    … …  
    5254#include "paramet.h"
    5355!include "dimphys.h"
    54 #include "comvert.h"
    5556#include "netcdf.inc"
    56 #include "logic.h"
    5757#include "comgeom.h"
    5858

  • trunk/LMDZ.GENERIC/libf/phystd/inistats.F

    r1397 r1422  
    33      use mod_phys_lmdz_para, only : is_master
    44      use statto_mod, only: istats,istime
     5      USE comvert_mod, ONLY: ap,bp,aps,bps,preff,pseudoalt,presnivs
     6      USE comconst_mod, ONLY: daysec,dtphys,pi
    57      implicit none
    68
    … …  
    810#include "paramet.h"
    911#include "comgeom.h"
    10 #include "comvert.h"
    11 #include "comconst.h"
    1212#include "netcdf.inc"
    1313

  • trunk/LMDZ.GENERIC/libf/phystd/iniwrite.F

    r1384 r1422  
    44      use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, daysec, dtphys,
    55     &                        pi
     6      USE comvert_mod, ONLY: ap,bp,aps,bps,pseudoalt
     7      USE logic_mod, ONLY: fxyhypb,ysinus
     8      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     9      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    610      IMPLICIT NONE
    711
    … …  
    2428#include "dimensions.h"
    2529#include "paramet.h"
    26 #include "comvert.h"
    2730#include "comgeom.h"
    28 #include "ener.h"
    29 #include "logic.h"
    3031#include "netcdf.inc"
    31 #include "serre.h"
    3232
    3333c   Arguments:

  • trunk/LMDZ.GENERIC/libf/phystd/iniwrite_specIR.F

    r1384 r1422  
    55      use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, daysec, dtphys,
    66     &                        pi
     7      USE logic_mod, ONLY: fxyhypb,ysinus
     8      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     9      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    710
    811      implicit none
    … …  
    2629#include "dimensions.h"
    2730#include "paramet.h"
    28 #include "comvert.h"
    2931#include "comgeom.h"
    30 #include "temps.h"
    31 #include "ener.h"
    32 #include "logic.h"
    3332#include "netcdf.inc"
    34 #include "serre.h"
    3533!#include"dimphys.h"
    3634

  • trunk/LMDZ.GENERIC/libf/phystd/iniwrite_specVI.F

    r1384 r1422  
    66      use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, daysec, dtphys,
    77     &                        pi
     8      USE logic_mod, ONLY: fxyhypb,ysinus
     9      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     10      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
     11
    812      implicit none
    913
    … …  
    2630#include "dimensions.h"
    2731#include "paramet.h"
    28 #include "comvert.h"
    2932#include "comgeom.h"
    30 #include "temps.h"
    31 #include "ener.h"
    32 #include "logic.h"
    3333#include "netcdf.inc"
    34 #include "serre.h"
    3534!#include"dimphys.h"
    3635

  • trunk/LMDZ.GENERIC/libf/phystd/writediagfi.F

    r1318 r1422  
    4444     &                               is_master, gather
    4545      USE mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo
     46      USE temps_mod, ONLY: day_ini
    4647      implicit none
    4748
    … …  
    4950      include "dimensions.h"
    5051      include "paramet.h"
    51       include "comvert.h"
    5252      include "comgeom.h"
    5353      include "netcdf.inc"
    54       include "temps.h"
    5554
    5655! Arguments on input:

  • trunk/LMDZ.GENERIC/libf/phystd/writediagspecIR.F

    r1397 r1422  
    5050      use control_mod, only: ecritphy, iphysiq, day_step
    5151      use callkeys_mod, only: iradia
     52      USE temps_mod, ONLY: day_ini
    5253
    5354      implicit none
    … …  
    5859#include "paramet.h"
    5960!#include "control.h"
    60 #include "comvert.h"
    6161#include "comgeom.h"
    6262#include "netcdf.inc"
    63 #include "temps.h"
    6463
    6564! Arguments on input:

  • trunk/LMDZ.GENERIC/libf/phystd/writediagspecVI.F

    r1397 r1422  
    5050      use control_mod, only: ecritphy, iphysiq, day_step
    5151      use callkeys_mod, only: iradia
     52      USE temps_mod, ONLY: day_ini
    5253
    5354      implicit none
    … …  
    5859#include "paramet.h"
    5960!#include "control.h"
    60 #include "comvert.h"
    6161#include "comgeom.h"
    6262#include "netcdf.inc"
    63 #include "temps.h"
    6463
    6564! Arguments on input:

  • trunk/LMDZ.GENERIC/libf/phystd/wstats.F90

    r1397 r1422  
    99#include "dimensions.h"
    1010!#include "dimphys.h"
    11 #include "comconst.h"
    1211#include "netcdf.inc"
    1312
Note: See TracChangeset for help on using the changeset viewer.