Changeset 1027 for LMDZ4/trunk/libf

Timestamp:

Oct 24, 2008, 5:14:34 PM (16 years ago)

Author:

lmdzadmin

Message:

Flags en plus pour les thermiques.
FH/IM

File:

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

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -14 +14 @@
  &                     bl95_b0, bl95_b1,&
  &                     iflag_thermals,nsplit_thermals,tau_thermals, &
+ &                     iflag_thermals_ed,iflag_thermals_optflux, &
  &                     iflag_coupl,iflag_clos,iflag_wake )
 
@@ -83 +84 @@
 
   integer :: iflag_thermals,nsplit_thermals
+  integer,SAVE :: iflag_thermals_ed_omp,iflag_thermals_optflux_omp
+  integer :: iflag_thermals_ed,iflag_thermals_optflux
   integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp
   real :: tau_thermals
@@ -861 +864 @@
   iflag_thermals_omp = 0
   call getin('iflag_thermals',iflag_thermals_omp)
+!
+!
+!Config Key  = iflag_thermals_ed
+!Config Desc =
+!Config Def  = 0
+!Config Help =
+!
+  iflag_thermals_ed_omp = 0
+  call getin('iflag_thermals_ed',iflag_thermals_ed_omp)
+!
+!
+!Config Key  = iflag_thermals_optflux
+!Config Desc =
+!Config Def  = 0
+!Config Help =
+!
+  iflag_thermals_optflux_omp = 0
+  call getin('iflag_thermals_optflux',iflag_thermals_optflux_omp)
 !
 !
@@ -1226 +1247 @@
     ip_ebil_phy = ip_ebil_phy_omp
     iflag_thermals = iflag_thermals_omp
+    iflag_thermals_ed = iflag_thermals_ed_omp
+    iflag_thermals_optflux = iflag_thermals_optflux_omp
     nsplit_thermals = nsplit_thermals_omp
     tau_thermals = tau_thermals_omp
@@ -1346 +1369 @@
   write(numout,*)' iflag_pbl = ', iflag_pbl
   write(numout,*)' iflag_thermals = ', iflag_thermals
+  write(numout,*)' iflag_thermals_ed = ', iflag_thermals_ed
+  write(numout,*)' iflag_thermals_optflux = ', iflag_thermals_optflux
   write(numout,*)' type_run = ',type_run 
   write(numout,*)' ok_isccp = ',ok_isccp