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

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/datareadnc.F

    r1415 r1422  
    4444! to use  'getin'
    4545       use ioipsl_getincom
     46      USE comconst_mod, ONLY: g,pi
    4647
    4748      implicit none
     
    5051#include "paramet.h"
    5152#include "comgeom.h"
    52 #include "comconst.h"
    5353#include "netcdf.inc"
    5454#include "datafile.h"
     
    100100
    101101!#include "lmdstd.h"
    102 #include "fxyprim.h"
     102!#include "fxyprim.h"
    103103
    104104      pi=2.*ASIN(1.)
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/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.MARS/libf/dynlonlat_phylonlat/phymars/ini_archive.F

    r1403 r1422  
    3535 
    3636      use comsoil_h, only: nsoilmx, mlayer
     37      USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff,presnivs,pseudoalt
     38      USE comconst_mod, ONLY: daysec,dtvr,rad,omeg,g,cpp,kappa,pi
     39      USE logic_mod, ONLY: fxyhypb,ysinus
     40      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy
     41      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    3742      implicit none
    3843
    3944#include "dimensions.h"
    4045#include "paramet.h"
    41 #include "comconst.h"
    42 #include "comvert.h"
    4346#include "comgeom.h"
    44 #include "temps.h"
    45 #include "ener.h"
    46 #include "logic.h"
    47 #include "description.h"
    48 #include "serre.h"
    4947#include "netcdf.inc"
    5048
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/lect_start_archive.F

    r1421 r1422  
    2020      use comsoil_h, only: nsoilmx, layer, mlayer, volcapa, inertiedat
    2121      use planete_h
     22      USE comvert_mod, ONLY: ap,bp,aps,bps,preff
     23      USE comconst_mod, ONLY: kappa,g,pi
    2224      implicit none
    2325
    2426#include "dimensions.h"
    2527#include "paramet.h"
    26 #include "comconst.h"
    27 #include "comvert.h"
    2828#include "comgeom2.h"
    29 #include "logic.h"
    30 #include "description.h"
    31 #include "ener.h"
    32 #include "temps.h"
    3329#include "netcdf.inc"
    3430c=======================================================================
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F

    r1421 r1422  
    3535      use comgeomfi_h, only: ini_fillgeom
    3636      use filtreg_mod, only: inifilr
     37      USE comvert_mod, ONLY: ap,bp,pa,preff
     38      USE comconst_mod, ONLY: lllm,daysec,dtphys,dtvr,
     39     .                  cpp,kappa,rad,omeg,g,r,pi
     40      USE serre_mod, ONLY: alphax
     41      USE temps_mod, ONLY: day_ini,hour_ini
     42      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    3743
    3844      implicit none
     
    4147      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)
    4248#include "paramet.h"
    43 #include "comconst.h"
    44 #include "comvert.h"
    4549#include "comgeom2.h"
    46 #include "logic.h"
    47 #include "description.h"
    48 #include "ener.h"
    49 #include "temps.h"
    5050#include "comdissnew.h"
    5151#include "clesph0.h"
    52 #include "serre.h"
    5352#include "netcdf.inc"
    5453#include "datafile.h"
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/readhead_NC.F

    r1403 r1422  
    22     .           day0,
    33     .           phis,constR)
     4
     5      USE comvert_mod, ONLY: aps,bps,preff
     6      USE comconst_mod, ONLY: im,jm,lllm,daysec,dtvr,
     7     .                  rad,omeg,g,cpp,kappa,r
     8      USE temps_mod, ONLY: day_ini
     9      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
     10
    411      IMPLICIT none
    512c======================================================================
     
    1219#include "dimensions.h"
    1320#include "paramet.h"
    14 #include "temps.h"
    15 #include "comconst.h"
    16 #include "comvert.h"
    1721#include "comgeom.h"
    18 #include "ener.h"
    19 #include "description.h"
    2022
    2123c======================================================================
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/start2archive.F

    r1415 r1422  
    2626      use filtreg_mod, only: inifilr
    2727      use control_mod, only: planet_type
     28      USE comvert_mod, ONLY: ap,bp
     29      USE comconst_mod, ONLY: g,cpp
     30      USE logic_mod, ONLY: grireg
     31      USE temps_mod, ONLY: day_ini,hour_ini
    2832      implicit none
    2933
     
    3135      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)
    3236#include "paramet.h"
    33 #include "comconst.h"
    3437#include "comdissip.h"
    35 #include "comvert.h"
    3638#include "comgeom.h"
    37 #include "logic.h"
    38 #include "temps.h"
    39 #include "ener.h"
    40 #include "description.h"
    4139#include "netcdf.inc"
    4240
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/write_archive.F

    r1403 r1422  
    3838#include "paramet.h"
    3939!#include "control.h"
    40 #include "comvert.h"
    4140#include "comgeom.h"
    42 #include "description.h"
    43 #include "temps.h"
    4441#include "netcdf.inc"
    4542
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/xvik.F

    r1403 r1422  
    22
    33      USE filtreg_mod, ONLY: inifilr
     4      USE comconst_mod, ONLY: dtvr,g,r,pi
    45
    56      IMPLICIT NONE
     
    1617#include "dimensions.h"
    1718#include "paramet.h"
    18 #include "comconst.h"
    1919#include "comdissip.h"
    20 #include "comvert.h"
    2120#include "comgeom2.h"
    22 #include "logic.h"
    23 #include "temps.h"
    2421!#include "control.h"
    25 #include "ener.h"
    26 #include "description.h"
    2722#include "netcdf.inc"     
    2823
Note: See TracChangeset for help on using the changeset viewer.