Changeset 1376 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conf_phys.F90

Timestamp:

May 5, 2010, 3:23:18 PM (14 years ago)

Author:

musat

Message:

Output all tracers defined in .def in hist files with dynamic
declaration of LMDZ atmospheric tracers' output levels
Add 6 pseudo-water tracers with and without transport by boundary layer
IM

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conf_phys.F90

@@ -151 +151 @@
   REAL,SAVE :: ecrit_LES_omp
   REAL,SAVE :: ecrit_tra_omp
+  INTEGER, SAVE :: nseuil_omp   
   REAL,SAVE :: cvl_corr_omp
   LOGICAL,SAVE :: ok_lic_melt_omp
@@ -1226 +1227 @@
   ecrit_tra_omp = 30.
   call getin('ecrit_tra',ecrit_tra_omp)
+!
+!Config Key  = nseuil
+!Config Desc = Numero du traceur a partir duquel on ne transporte 
+!              pas par convection
+!Config Def  = 7 !a partir du numero 7 pour les pseudo-traceurs de Remy
+!Config Help =
+!
+  nseuil_omp = 7
+  call getin('nseuil',nseuil_omp)
+!
 !
 !Config Key  = ecrit_reg
@@ -1515 +1526 @@
     ecrit_mth = ecrit_mth_omp
     ecrit_tra = ecrit_tra_omp
+    nseuil = nseuil_omp
     ecrit_reg = ecrit_reg_omp
     cvl_corr = cvl_corr_omp
@@ -1678 +1690 @@
   write(numout,*)' ecrit_ hf, ins, day, mth, reg, tra, ISCCP, LES',&
    ecrit_hf, ecrit_ins, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra, ecrit_ISCCP, ecrit_LES
+  write(numout,*)' nseuil ',nseuil
 
   write(numout,*) 'ok_strato = ', ok_strato