Changeset 1421 for LMDZ4/trunk/libf/phylmd/conf_phys.F90

Timestamp:

Jul 28, 2010, 3:28:42 PM (14 years ago)

Author:

jghattas

Message:

• Fixed problems with pseudo-vapor tracers.
• Removed variable nseuil. The transport with convection can be desactivated with the variable conv_flg instead of nseuil.

File:

• LMDZ4/trunk/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -153 +153 @@
   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
@@ -1268 +1267 @@
   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
@@ -1571 +1560 @@
     ecrit_mth = ecrit_mth_omp
     ecrit_tra = ecrit_tra_omp
-    nseuil = nseuil_omp
     ecrit_reg = ecrit_reg_omp
     cvl_corr = cvl_corr_omp
@@ -1739 +1727 @@
   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