Changeset 3835
- Timestamp:
- Jul 7, 2025, 2:29:10 PM (40 hours ago)
- Location:
- trunk/LMDZ.VENUS/libf/phyvenus
- Files:
-
- 26 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/clcdrag.F90
r808 r3835 6 6 zgeop, zri, & 7 7 pcfm, pcfh) 8 USE clesphys_mod 8 9 IMPLICIT NONE 10 9 11 ! ================================================================= c 10 12 ! … … 31 33 ! 32 34 #include "YOMCST.h" 33 #include "clesphys.h"35 !#include "clesphys.h" 34 36 ! 35 37 ! Quelques constantes et options: -
trunk/LMDZ.VENUS/libf/phyvenus/clesphys_mod.F90
r3834 r3835 1 ! 2 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 3 ! veillez n utiliser que des ! pour les commentaires 4 ! et bien positionner les & des lignes de continuation 5 ! (les placer en colonne 6 et en colonne 73) 6 ! 7 ! 8 !..include cles_phys.h 9 ! 10 LOGICAL cycle_diurne,soil_model 11 LOGICAL ok_orodr,ok_orolf,ok_gw_nonoro 12 LOGICAL ok_kzmin,tuneupperatm, ok_ionchem, ok_jonline 13 LOGICAL ok_iondiff 14 LOGICAL callnlte,callnirco2,callthermos 15 LOGICAL ok_cloud, ok_chem, reinit_trac, ok_sedim 16 LOGICAL ok_clmain, physideal, startphy_file 17 INTEGER nbapp_rad, nbapp_chem, iflag_con, iflag_ajs 18 INTEGER lev_histins, lev_histday, lev_histmth 19 INTEGER tr_scheme, cl_scheme 20 INTEGER nircorr, nltemodel, solvarmod 21 INTEGER nb_mode 22 INTEGER solarchoice 23 REAL ecriphy 24 REAL z0, lmixmin 25 REAL ksta, inertie 26 REAL euveff, fixed_euv_value 1 MODULE clesphys_mod 2 IMPLICIT NONE 3 SAVE 27 4 28 COMMON/clesphys_l/ cycle_diurne, soil_model, & 29 & ok_orodr, ok_orolf, ok_gw_nonoro, ok_kzmin, & 30 & tuneupperatm,callnlte,callnirco2,callthermos, & 31 & ok_cloud, ok_chem, reinit_trac, ok_sedim, & 32 & ok_clmain, physideal, startphy_file, ok_ionchem, ok_jonline, & 33 & ok_iondiff 5 LOGICAL :: cycle_diurne, soil_model 6 LOGICAL :: ok_orodr, ok_orolf, ok_gw_nonoro 7 LOGICAL :: ok_kzmin, tuneupperatm, ok_ionchem, ok_jonline 8 LOGICAL :: ok_iondiff 9 LOGICAL :: callnlte, callnirco2, callthermos 10 LOGICAL :: ok_cloud, ok_chem, reinit_trac, ok_sedim 11 LOGICAL :: ok_clmain, physideal, startphy_file 34 12 35 COMMON/clesphys_i/ nbapp_rad, nbapp_chem, & 36 & iflag_con, iflag_ajs, & 37 & lev_histins, lev_histday, lev_histmth, tr_scheme, & 38 & cl_scheme, nircorr, nltemodel, solvarmod, nb_mode, & 39 & solarchoice 13 INTEGER :: nbapp_rad, nbapp_chem, iflag_con, iflag_ajs 14 INTEGER :: lev_histins, lev_histday, lev_histmth 15 INTEGER :: tr_scheme, cl_scheme 16 INTEGER :: nircorr, nltemodel, solvarmod 17 INTEGER :: nb_mode 18 INTEGER :: solarchoice 40 19 41 COMMON/clesphys_r/ ecriphy, z0, lmixmin, & 42 & ksta, inertie, euveff, fixed_euv_value 20 REAL :: ecriphy 21 REAL :: z0, lmixmin 22 REAL :: ksta, inertie 23 REAL :: euveff, fixed_euv_value 43 24 25 END MODULE clesphys_mod -
trunk/LMDZ.VENUS/libf/phyvenus/clmain.F
r2535 r3835 39 39 use cpdet_phy_mod, only: t2tpot 40 40 use turb_mod, only :yustar 41 use clesphys_mod 41 42 42 43 #ifdef CPP_XIOS … … 79 80 include "dimsoil.h" 80 81 include "iniprint.h" 81 include "clesphys.h"82 c include "clesphys.h" 82 83 include "compbl.h" 83 84 c … … 96 97 REAL, INTENT(IN) :: sollw(klon), solsw(klon), sollwdown(klon) 97 98 98 c Param ètres IN/OUT99 c Param�tres IN/OUT 99 100 REAL, INTENT(INOUT) :: fder(klon) 100 101 REAL, INTENT(INOUT) :: flux_u(klon,klev), flux_v(klon,klev) … … 404 405 405 406 c FH modif sur le cdrag temperature 406 c$$$PB : d éplace dans clcdrag407 c$$$PB : d�place dans clcdrag 407 408 c$$$ do i=1,knon 408 409 c$$$ ycoefh(i,1)=ycoefm(i,1)*0.8 … … 937 938 use dimphy, only: klon, klev 938 939 use cpdet_phy_mod, only: cpdet,t2tpot 940 use clesphys_mod 939 941 #ifdef CPP_XIOS 940 942 use xios_output_mod, only: send_xios_field … … 963 965 include "iniprint.h" 964 966 include "compbl.h" 965 include "clesphys.h"967 c include "clesphys.h" 966 968 c 967 969 c Arguments: -
trunk/LMDZ.VENUS/libf/phyvenus/clmain_ideal.F
r2135 r3835 30 30 use dimphy 31 31 use mod_grid_phy_lmdz, only: nbp_lev 32 use clesphys_mod 32 33 IMPLICIT none 33 34 c====================================================================== … … 63 64 #include "dimsoil.h" 64 65 #include "iniprint.h" 65 #include "clesphys.h"66 c#include "clesphys.h" 66 67 #include "compbl.h" 67 68 c … … 256 257 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 257 258 c RAYLEIGH FRICTION (implicit scheme) dans 1ere couche 258 c Ref: th èse de C. Lee Oxford 2006259 c Ref: th�se de C. Lee Oxford 2006 259 260 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 260 261 -
trunk/LMDZ.VENUS/libf/phyvenus/concentrations2.F
r3005 r3835 6 6 USE chemparam_mod 7 7 USE infotrac_phy, ONLY: tname 8 USE clesphys_mod 8 9 implicit none 9 10 … … 22 23 23 24 #include "YOMCST.h" 24 #include "clesphys.h"25 c#include "clesphys.h" 25 26 c#include "comdiurn.h" 26 27 c#include "chimiedata.h" -
trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90
r3827 r3835 11 11 use ioipsl_getin_p_mod, only: getin_p 12 12 use age_of_air_mod, only: ok_aoa, reinit_aoa, lev_aoa 13 use clesphys_mod 13 14 14 15 implicit none 15 16 16 17 include "YOMCST.h" 17 include "clesphys.h"18 !include "clesphys.h" 18 19 include "compbl.h" 19 20 -
trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F
r3540 r3835 19 19 USE mod_const_mpi, ONLY: init_const_mpi 20 20 USE parallel_lmdz, ONLY: init_parallel 21 USE clesphys_mod 21 22 IMPLICIT NONE 22 23 … … 44 45 #include "comcstfi.h" 45 46 #include "netcdf.inc" 46 #include "clesphys.h"47 c#include "clesphys.h" 47 48 #include "iniprint.h" 48 49 #include "tabcontrol.h" … … 274 275 c Calcul au milieu des couches : Vient de la version Mars 275 276 c WARNING : le choix de placer le milieu des couches au niveau de 276 c pression interm édiaire est arbitraire et pourrait etre modifié.277 c pression interm�diaire est arbitraire et pourrait etre modifi�. 277 278 c C'est fait de la meme facon dans disvert 278 279 -
trunk/LMDZ.VENUS/libf/phyvenus/euvheat.F90
r3828 r3835 6 6 use conc, only: rnew, cpnew 7 7 use mmol_mod 8 use clesphys_mod 8 9 9 10 IMPLICIT NONE … … 33 34 ! 34 35 #include "YOMCST.h" 35 #include "clesphys.h"36 !#include "clesphys.h" 36 37 !#include "mmol.h" 37 38 !----------------------------------------------------------------------- -
trunk/LMDZ.VENUS/libf/phyvenus/hrtherm.F
r2836 r3835 10 10 use dimphy 11 11 use param_v4_h, only: ninter,nabs,jfotsout,fluxtop,freccen 12 use clesphys_mod 12 13 13 14 implicit none … … 16 17 17 18 18 #include "clesphys.h"19 c#include "clesphys.h" 19 20 20 21 -
trunk/LMDZ.VENUS/libf/phyvenus/jthermcalc_e107.F
r3828 r3835 18 18 . nabs,e107,date_e107,e107_tab, 19 19 . coefit0,coefit1,coefit2,coefit3,coefit4 20 20 use clesphys_mod 21 21 implicit none 22 22 23 include "clesphys.h"23 c include "clesphys.h" 24 24 25 25 … … 1127 1127 use param_v4_h 1128 1128 use mmol_mod 1129 use clesphys_mod 1129 1130 implicit none 1130 1131 1131 1132 c common variables and constants 1132 #include "clesphys.h"1133 c#include "clesphys.h" 1133 1134 c#include "mmol.h" 1134 1135 -
trunk/LMDZ.VENUS/libf/phyvenus/nirco2abs.F
r3828 r3835 6 6 use chemparam_mod, only: i_co2, i_o 7 7 use mmol_mod 8 use clesphys_mod 8 9 c use compo_hedin83_mod2 9 10 … … 57 58 58 59 #include "YOMCST.h" 59 #include "clesphys.h"60 c#include "clesphys.h" 60 61 c#include "comdiurn.h" 61 62 #include "nirdata.h" -
trunk/LMDZ.VENUS/libf/phyvenus/nlthermeq.F
r1591 r3835 9 9 c Modified Y. Wanherdrick/ F. Forget 09/2000 10 10 use dimphy 11 use clesphys_mod 11 12 implicit none 12 13 c#include "dimradmars.h" 13 14 #include "nlteparams.h" 14 15 c#include "yomlw.h" 15 #include "clesphys.h"16 c#include "clesphys.h" 16 17 17 18 c -
trunk/LMDZ.VENUS/libf/phyvenus/param_read_e107.F
r2836 r3835 17 17 . fluxtop,ct1,ct2,p1,p2 18 18 19 use clesphys_mod 19 20 implicit none 20 21 21 22 22 23 c common variables and constants 23 include "clesphys.h"24 c include "clesphys.h" 24 25 25 26 -
trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90
r3764 r3835 2393 2393 !=========================================================== 2394 2394 2395 use clesphys_mod 2395 2396 implicit none 2396 #include "clesphys.h"2397 !#include "clesphys.h" 2397 2398 2398 2399 integer, INTENT(IN) :: nz -
trunk/LMDZ.VENUS/libf/phyvenus/photolysis_mod.F90
r3755 r3835 588 588 USE mod_phys_lmdz_para, ONLY: is_master 589 589 USE mod_phys_lmdz_transfert_para, ONLY: bcast 590 USE clesphys_mod 590 591 591 592 implicit none 592 593 593 #include "clesphys.h" ! fixed_euv_value594 !#include "clesphys.h" ! fixed_euv_value 594 595 595 596 ! input -
trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90
r3719 r3835 21 21 use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd, & 22 22 east_gwstress, west_gwstress 23 use clesphys_mod 23 24 24 25 implicit none 25 26 !====================================================================== 26 27 include "dimsoil.h" 27 include "clesphys.h"28 !include "clesphys.h" 28 29 include "tabcontrol.h" 29 30 !====================================================================== -
trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90
r3451 r3835 15 15 use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd, & 16 16 east_gwstress, west_gwstress 17 use age_of_air_mod, only: ok_aoa 17 use age_of_air_mod, only: ok_aoa 18 use clesphys_mod 19 18 20 implicit none 19 21 !====================================================================== … … 23 25 !include "netcdf.inc" 24 26 include "dimsoil.h" 25 include "clesphys.h"27 !include "clesphys.h" 26 28 include "tabcontrol.h" 27 29 !====================================================================== -
trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F
r3719 r3835 83 83 use sed_and_prod_mad, only: aer_sedimentation, drop_sedimentation 84 84 use iono_h, only: temp_elect, temp_ion 85 use clesphys_mod 85 86 #ifdef CPP_XIOS 86 87 use xios_output_mod, only: initialize_xios_output, … … 113 114 c====================================================================== 114 115 #include "dimsoil.h" 115 #include "clesphys.h"116 c#include "clesphys.h" 116 117 #include "iniprint.h" 117 118 #include "timerad.h" -
trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F
r3764 r3835 23 23 use photolysis_mod, only: init_photolysis, nphot 24 24 use iono_h, only: temp_elect 25 use clesphys_mod 25 26 #ifdef CPP_XIOS 26 27 use xios_output_mod, only: send_xios_field … … 29 30 implicit none 30 31 31 #include "clesphys.h"32 !#include "clesphys.h" 32 33 #include "YOMCST.h" 33 34 -
trunk/LMDZ.VENUS/libf/phyvenus/phytrac_emiss.F
r3714 r3835 30 30 c====================================================================== 31 31 use infotrac_phy, only: tname, nqtot 32 use clesphys_mod 32 33 #ifdef CPP_XIOS 33 34 use xios_output_mod, only: send_xios_field … … 39 40 IMPLICIT none 40 41 #include "YOMCST.h" 41 #include "clesphys.h"42 c#include "clesphys.h" 42 43 43 44 c====================================================================== -
trunk/LMDZ.VENUS/libf/phyvenus/phytrac_relax.F
r1621 r3835 28 28 use dimphy 29 29 USE chemparam_mod,only:M_tr 30 USE clesphys_mod 30 31 IMPLICIT none 31 32 #include "YOMCST.h" 32 #include "clesphys.h"33 c#include "clesphys.h" 33 34 c====================================================================== 34 35 -
trunk/LMDZ.VENUS/libf/phyvenus/printflag.F
r1442 r3835 8 8 c Auteur : P. Le Van 9 9 10 USE clesphys_mod 11 10 12 IMPLICIT NONE 11 13 … … 15 17 INTEGER radpas0 16 18 c 17 #include "clesphys.h"19 c#include "clesphys.h" 18 20 #include "tabcontrol.h" 19 21 #include "YOMCST.h" -
trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.F
r3714 r3835 34 34 use write_field_phy 35 35 use radinc_h, only: ini_radinc_h 36 use clesphys_mod 36 37 37 38 #ifdef CPP_XIOS … … 41 42 IMPLICIT none 42 43 include "YOMCST.h" 43 include "clesphys.h"44 ! include "clesphys.h" 44 45 include "comcstVE.h" 45 46 include "nlteparams.h" -
trunk/LMDZ.VENUS/libf/phyvenus/soil.F
r2539 r3835 47 47 48 48 use dimphy, only: klon 49 use clesphys_mod 49 50 IMPLICIT NONE 50 51 include "YOMCST.h" 51 52 include "dimsoil.h" 52 include "clesphys.h"53 c include "clesphys.h" 53 54 54 55 c----------------------------------------------------------------------- -
trunk/LMDZ.VENUS/libf/phyvenus/sugas_corrk.F90
r3794 r3835 29 29 use gases_h, only: gnom, ngasmx, igas_H2O, igas_CO2 30 30 use interpolate_continuum_mod, only: interpolate_continuum 31 use clesphys_mod 31 32 implicit none 32 33 #include "YOMCST.h" 33 #include "clesphys.h"34 !#include "clesphys.h" 34 35 35 36 !================================================================== -
trunk/LMDZ.VENUS/libf/phyvenus/sw_venus_corrk.F90
r3794 r3835 15 15 use optcv_mod, only: optcv 16 16 use cpdet_phy_mod, only: cpdet 17 use clesphys_mod 17 18 18 19 implicit none 19 20 #include "YOMCST.h" 20 #include "clesphys.h"21 !#include "clesphys.h" 21 22 22 23 !================================================================== -
trunk/LMDZ.VENUS/libf/phyvenus/sw_venus_rh.F
r2503 r3835 6 6 use dimphy, only: klev 7 7 use cpdet_phy_mod, only: cpdet 8 use clesphys_mod 8 9 IMPLICIT none 9 10 10 11 include "YOMCST.h" 11 include "clesphys.h"12 C include "clesphys.h" 12 13 C 13 14 C ------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.