Changeset 1422 for trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars
- Timestamp:
- Apr 30, 2015, 12:33:45 PM (10 years ago)
- 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 44 44 ! to use 'getin' 45 45 use ioipsl_getincom 46 USE comconst_mod, ONLY: g,pi 46 47 47 48 implicit none … … 50 51 #include "paramet.h" 51 52 #include "comgeom.h" 52 #include "comconst.h"53 53 #include "netcdf.inc" 54 54 #include "datafile.h" … … 100 100 101 101 !#include "lmdstd.h" 102 #include "fxyprim.h"102 !#include "fxyprim.h" 103 103 104 104 pi=2.*ASIN(1.) -
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/grid_noro1.F
r1403 r1422 51 51 c IMPLICIT INTEGER (I,J) 52 52 c IMPLICIT REAL(X,Z) 53 54 USE comconst_mod, ONLY: rad 55 53 56 implicit none 54 57 integer iusn,jusn,iext … … 57 60 c!-*- include 'comcstfi.h' 58 61 #include "dimensions.h" 59 #include "comconst.h"60 62 c!-*- 61 63 c!-*- parameter(iim=cols,jjm=rows) -
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/ini_archive.F
r1403 r1422 35 35 36 36 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 37 42 implicit none 38 43 39 44 #include "dimensions.h" 40 45 #include "paramet.h" 41 #include "comconst.h"42 #include "comvert.h"43 46 #include "comgeom.h" 44 #include "temps.h"45 #include "ener.h"46 #include "logic.h"47 #include "description.h"48 #include "serre.h"49 47 #include "netcdf.inc" 50 48 -
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/lect_start_archive.F
r1421 r1422 20 20 use comsoil_h, only: nsoilmx, layer, mlayer, volcapa, inertiedat 21 21 use planete_h 22 USE comvert_mod, ONLY: ap,bp,aps,bps,preff 23 USE comconst_mod, ONLY: kappa,g,pi 22 24 implicit none 23 25 24 26 #include "dimensions.h" 25 27 #include "paramet.h" 26 #include "comconst.h"27 #include "comvert.h"28 28 #include "comgeom2.h" 29 #include "logic.h"30 #include "description.h"31 #include "ener.h"32 #include "temps.h"33 29 #include "netcdf.inc" 34 30 c======================================================================= -
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F
r1421 r1422 35 35 use comgeomfi_h, only: ini_fillgeom 36 36 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 37 43 38 44 implicit none … … 41 47 integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm) 42 48 #include "paramet.h" 43 #include "comconst.h"44 #include "comvert.h"45 49 #include "comgeom2.h" 46 #include "logic.h"47 #include "description.h"48 #include "ener.h"49 #include "temps.h"50 50 #include "comdissnew.h" 51 51 #include "clesph0.h" 52 #include "serre.h"53 52 #include "netcdf.inc" 54 53 #include "datafile.h" -
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/readhead_NC.F
r1403 r1422 2 2 . day0, 3 3 . 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 4 11 IMPLICIT none 5 12 c====================================================================== … … 12 19 #include "dimensions.h" 13 20 #include "paramet.h" 14 #include "temps.h"15 #include "comconst.h"16 #include "comvert.h"17 21 #include "comgeom.h" 18 #include "ener.h"19 #include "description.h"20 22 21 23 c====================================================================== -
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/start2archive.F
r1415 r1422 26 26 use filtreg_mod, only: inifilr 27 27 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 28 32 implicit none 29 33 … … 31 35 integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm) 32 36 #include "paramet.h" 33 #include "comconst.h"34 37 #include "comdissip.h" 35 #include "comvert.h"36 38 #include "comgeom.h" 37 #include "logic.h"38 #include "temps.h"39 #include "ener.h"40 #include "description.h"41 39 #include "netcdf.inc" 42 40 -
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/write_archive.F
r1403 r1422 38 38 #include "paramet.h" 39 39 !#include "control.h" 40 #include "comvert.h"41 40 #include "comgeom.h" 42 #include "description.h"43 #include "temps.h"44 41 #include "netcdf.inc" 45 42 -
trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/xvik.F
r1403 r1422 2 2 3 3 USE filtreg_mod, ONLY: inifilr 4 USE comconst_mod, ONLY: dtvr,g,r,pi 4 5 5 6 IMPLICIT NONE … … 16 17 #include "dimensions.h" 17 18 #include "paramet.h" 18 #include "comconst.h"19 19 #include "comdissip.h" 20 #include "comvert.h"21 20 #include "comgeom2.h" 22 #include "logic.h"23 #include "temps.h"24 21 !#include "control.h" 25 #include "ener.h"26 #include "description.h"27 22 #include "netcdf.inc" 28 23
Note: See TracChangeset
for help on using the changeset viewer.