Changeset 3877
- Timestamp:
- Aug 2, 2025, 5:32:18 PM (5 hours ago)
- Location:
- trunk
- Files:
-
- 1 deleted
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/newstart.F
r2405 r3877 33 33 USE logic_mod, ONLY: iflag_trac,fxyhypb,ysinus 34 34 USE temps_mod, ONLY: day_ref,annee_ref 35 USE soil_mod, only: nsoilmx 35 36 implicit none 36 37 … … 40 41 #include "comgeom2.h" 41 42 #include "description.h" 42 #include "dimsoil.h"43 43 #include "netcdf.inc" 44 44 -
trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/readstartphy.F
r1687 r3877 15 15 c====================================================================== 16 16 use dimphy 17 use soil_mod, only: nsoilmx 17 18 IMPLICIT none 18 #include "netcdf.inc" 19 #include "dimsoil.h" 19 include "netcdf.inc" 20 20 c====================================================================== 21 21 -
trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/start2archive.F
r1687 r3877 22 22 use exner_milieu_m, only: exner_milieu 23 23 USE comconst_mod 24 USE soil_mod, ONLY: nsoilmx 24 25 USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig, 25 26 . aps,bps,scaleheight,pseudoalt, … … 34 35 #include "comgeom.h" 35 36 #include "description.h" 36 #include "dimsoil.h"37 37 #include "netcdf.inc" 38 38 -
trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/writerestartphy.F
r1530 r3877 8 8 9 9 10 USE soil_mod, only: nsoilmx 10 11 c====================================================================== 11 12 c Ecriture de l'etat de redemarrage pour la physique (pour newstart) 12 13 c====================================================================== 13 14 IMPLICIT none 14 #include "dimensions.h" 15 #include "netcdf.inc" 16 #include "dimsoil.h" 15 include "dimensions.h" 16 include "netcdf.inc" 17 17 c====================================================================== 18 18 CHARACTER*13 fichnom -
trunk/LMDZ.VENUS/libf/phyvenus/clmain.F
r3835 r3877 39 39 use cpdet_phy_mod, only: t2tpot 40 40 use turb_mod, only :yustar 41 use soil_mod, only: nsoilmx 41 42 use clesphys_mod 42 43 … … 77 78 cAA la premiere couche 78 79 c====================================================================== 79 c$$$ PB ajout pour soil80 include "dimsoil.h"81 80 include "iniprint.h" 82 c include "clesphys.h"83 81 include "compbl.h" 84 82 c … … 485 483 use interface_surf, only: interfsurf_hq 486 484 use dimphy, only: klon, klev 485 use soil_mod, only: nsoilmx 487 486 use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev 488 487 use cpdet_phy_mod, only: t2tpot,tpot2t,cpdet … … 494 493 c====================================================================== 495 494 include "YOMCST.h" 496 include "dimsoil.h"497 495 include "iniprint.h" 498 496 -
trunk/LMDZ.VENUS/libf/phyvenus/clmain_ideal.F
r3835 r3877 30 30 use dimphy 31 31 use mod_grid_phy_lmdz, only: nbp_lev 32 use soil_mod, only: nsoilmx 32 33 use clesphys_mod 33 34 IMPLICIT none … … 61 62 cAA la premiere couche 62 63 c====================================================================== 63 c$$$ PB ajout pour soil64 #include "dimsoil.h"65 64 #include "iniprint.h" 66 c#include "clesphys.h"67 65 #include "compbl.h" 68 66 c -
trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F
r3875 r3877 21 21 USE clesphys_mod 22 22 USE comcstfi_mod 23 USE soil_mod, ONLY: nsoilmx 23 24 USE tabcontrol_mod, ONLY: dtime, radpas 24 25 IMPLICIT NONE … … 43 44 c======================================================================= 44 45 45 #include "dimensions.h" 46 #include "dimsoil.h" 47 #include "netcdf.inc" 48 #include "iniprint.h" 46 include "dimensions.h" 47 include "netcdf.inc" 48 include "iniprint.h" 49 49 50 50 c -------------------------------------------------------------- -
trunk/LMDZ.VENUS/libf/phyvenus/interface_surf.F90
r1621 r3877 47 47 use write_field_phy 48 48 use cpdet_phy_mod, only: cpdet 49 use soil_mod, only: soil 49 50 50 51 IMPLICIT none -
trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90
r3875 r3877 22 22 east_gwstress, west_gwstress 23 23 use tabcontrol_mod, only: dtime, radpas, length, tabcntr0 24 use soil_mod, only: nsoilmx 24 25 use clesphys_mod 25 26 26 27 implicit none 27 !======================================================================28 include "dimsoil.h"29 !======================================================================30 28 31 29 character(len=*),intent(in) :: fichnom ! input file name … … 44 42 call open_startphy(fichnom) 45 43 endif 46 47 44 ! 48 45 ! Load control parameters: -
trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90
r3875 r3877 17 17 use age_of_air_mod, only: ok_aoa 18 18 use tabcontrol_mod, only: dtime, radpas, length 19 use soil_mod, only: nsoilmx 19 20 use clesphys_mod 20 21 21 22 implicit none 22 !======================================================================23 ! Auteur(s) Z.X. Li (LMD/CNRS) date: 1993081824 ! Objet: Lecture de l'etat initial pour la physique25 !======================================================================26 !include "netcdf.inc"27 include "dimsoil.h"28 !======================================================================29 23 30 24 character(len=*),intent(in) :: fichnom -
trunk/LMDZ.VENUS/libf/phyvenus/phys_state_var_mod.F90
r3451 r3877 125 125 SUBROUTINE phys_state_var_init(nqmax) 126 126 127 USE soil_mod, ONLY: nsoilmx 128 127 129 IMPLICIT NONE 128 include "dimsoil.h"129 130 130 131 integer :: nqmax -
trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F
r3875 r3877 85 85 use iono_h, only: temp_elect, temp_ion 86 86 use tabcontrol_mod, only: radpas, dtime 87 use soil_mod, only: nsoilmx 87 88 use clesphys_mod 88 89 #ifdef CPP_XIOS … … 115 116 #endif 116 117 c====================================================================== 117 #include "dimsoil.h"118 118 #include "iniprint.h" 119 119 #include "timerad.h" -
trunk/LMDZ.VENUS/libf/phyvenus/soil.F
r3835 r3877 1 ! 2 ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/soil.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ 3 ! 1 MODULE soil_mod 2 3 IMPLICIT NONE 4 5 INTEGER,PARAMETER :: nsoilmx=11 ! number of sub-surface soil layers 6 7 CONTAINS 8 4 9 SUBROUTINE soil(ptimestep, knon, ptsrf, ptsoil, 5 10 s pcapcal, pfluxgrd) … … 50 55 IMPLICIT NONE 51 56 include "YOMCST.h" 52 include "dimsoil.h"53 c include "clesphys.h"54 57 55 58 c----------------------------------------------------------------------- … … 230 233 231 234 232 END 235 END SUBROUTINE soil 236 237 END MODULE soil_mod
Note: See TracChangeset
for help on using the changeset viewer.