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

Timestamp:

Jun 19, 2008, 12:25:57 PM (16 years ago)

Author:

lmdzadmin

Message:

Initialisations : concvl, cv3_routines, cva_driver, physiq
Correction bug i0 + ajout tests : cv3p1_closure
Ajout sorties : ale, alp, cin, wape
Ajout variables wake : phyetat0, phyredem
IM

File:

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

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -12 +12 @@
  &                     ok_ade, ok_aie, aerosol_couple, &
  &                     bl95_b0, bl95_b1,&
- &                     iflag_thermals,nsplit_thermals, &
+ &                     iflag_thermals,nsplit_thermals,tau_thermals, &
  &                     iflag_coupl,iflag_clos,iflag_wake )
 
@@ -81 +81 @@
   integer :: iflag_thermals,nsplit_thermals
   integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp
+  real :: tau_thermals
+  real,save :: tau_thermals_omp
   integer :: iflag_coupl
   integer :: iflag_clos
@@ -830 +832 @@
   nsplit_thermals_omp = 1
   call getin('nsplit_thermals',nsplit_thermals_omp)
+
+!Config Key  = tau_thermals
+!Config Desc =
+!Config Def  = 0.
+!Config Help =
+!
+  tau_thermals_omp = 0.
+  call getin('tau_thermals',tau_thermals_omp)
 
 !
@@ -1171 +1181 @@
     iflag_thermals = iflag_thermals_omp
     nsplit_thermals = nsplit_thermals_omp
+    tau_thermals = tau_thermals_omp
     iflag_coupl = iflag_coupl_omp
     iflag_clos = iflag_clos_omp