Changeset 1403 for LMDZ4/trunk/libf/phylmd/conf_phys.F90
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/conf_phys.F90
r1374 r1403 22 22 iflag_thermals,nsplit_thermals,tau_thermals, & 23 23 iflag_thermals_ed,iflag_thermals_optflux, & 24 iflag_coupl,iflag_clos,iflag_wake, read_climoz) 24 iflag_coupl,iflag_clos,iflag_wake, read_climoz, & 25 alp_offset) 25 26 26 27 use IOIPSL … … 28 29 USE phys_cal_mod 29 30 USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl 31 use control_mod 30 32 31 33 include "conema3.h" … … 37 39 include "clesphys.h" 38 40 include "compbl.h" 39 include "control.h"40 41 include "comsoil.h" 41 42 ! … … 111 112 integer :: iflag_clos 112 113 integer :: iflag_wake 114 real :: alp_offset 115 REAL, SAVE :: alp_offset_omp 113 116 integer,SAVE :: iflag_coupl_omp,iflag_clos_omp,iflag_wake_omp 114 117 integer,SAVE :: iflag_cvl_sigd_omp … … 150 153 REAL,SAVE :: ecrit_LES_omp 151 154 REAL,SAVE :: ecrit_tra_omp 155 INTEGER, SAVE :: nseuil_omp 152 156 REAL,SAVE :: cvl_corr_omp 153 157 LOGICAL,SAVE :: ok_lic_melt_omp … … 1038 1042 call getin('iflag_wake',iflag_wake_omp) 1039 1043 1044 !Config Key = alp_offset 1045 !Config Desc = 1046 !Config Def = 0 1047 !Config Help = 1048 ! 1049 alp_offset_omp = 0. 1050 call getin('alp_offset',alp_offset_omp) 1051 1040 1052 ! 1041 1053 !Config Key = lev_histhf … … 1256 1268 ecrit_tra_omp = 30. 1257 1269 call getin('ecrit_tra',ecrit_tra_omp) 1270 ! 1271 !Config Key = nseuil 1272 !Config Desc = Numero du traceur a partir duquel on ne transporte 1273 ! pas par convection 1274 !Config Def = 7 !a partir du numero 7 pour les pseudo-traceurs de Remy 1275 !Config Help = 1276 ! 1277 nseuil_omp = 7 1278 call getin('nseuil',nseuil_omp) 1279 ! 1258 1280 ! 1259 1281 !Config Key = ecrit_reg … … 1531 1553 iflag_clos = iflag_clos_omp 1532 1554 iflag_wake = iflag_wake_omp 1555 alp_offset = alp_offset_omp 1533 1556 iflag_cvl_sigd = iflag_cvl_sigd_omp 1534 1557 type_run = type_run_omp … … 1548 1571 ecrit_mth = ecrit_mth_omp 1549 1572 ecrit_tra = ecrit_tra_omp 1573 nseuil = nseuil_omp 1550 1574 ecrit_reg = ecrit_reg_omp 1551 1575 cvl_corr = cvl_corr_omp … … 1708 1732 write(numout,*)' Fmax = ', Fmax 1709 1733 write(numout,*)' alphas = ', alphas 1734 write(numout,*)' iflag_wake = ', iflag_wake 1735 write(numout,*)' alp_offset = ', alp_offset 1710 1736 1711 1737 write(numout,*)' lonmin lonmax latmin latmax bilKP_ins =',& … … 1713 1739 write(numout,*)' ecrit_ hf, ins, day, mth, reg, tra, ISCCP, LES',& 1714 1740 ecrit_hf, ecrit_ins, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra, ecrit_ISCCP, ecrit_LES 1741 write(numout,*)' nseuil ',nseuil 1715 1742 1716 1743 write(numout,*) 'ok_strato = ', ok_strato
Note: See TracChangeset
for help on using the changeset viewer.