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

Timestamp:

Oct 6, 2008, 11:11:53 AM (16 years ago)

Author:

Laurent Fairhead

Message:

• Modifs sur le parallelisme: masquage dans la physique
• Inclusion strato
• mise en coherence etat0
• le mode offline fonctionne maintenant en parallele,
• les fichiers de la dynamiques sont correctement sortis et peuvent etre reconstruit avec rebuild
• la version parallele de la dynamique peut s'executer sans MPI (sur 1 proc)
• L'OPENMP fonctionne maintenant sans la parallelisation MPI.

YM
LF

File:

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

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ +1 @@
+
 !
 ! $Header$
@@ -120 +121 @@
   LOGICAL,SAVE :: ok_lic_melt_omp
 !
-!
-    LOGICAL,SAVE :: cycle_diurne_omp,soil_model_omp,new_oliq_omp
-    LOGICAL,SAVE :: ok_orodr_omp, ok_orolf_omp, ok_limitvrai_omp
-    INTEGER, SAVE :: nbapp_rad_omp, iflag_con_omp
-!
-
-!$OMP MASTER
+  LOGICAL,SAVE :: cycle_diurne_omp,soil_model_omp,new_oliq_omp
+  LOGICAL,SAVE :: ok_orodr_omp, ok_orolf_omp, ok_limitvrai_omp
+  INTEGER, SAVE :: nbapp_rad_omp, iflag_con_omp
+  LOGICAL,SAVE :: ok_strato_omp
+  LOGICAL,SAVE :: ok_hines_omp
+!
+
+!$OMP MASTER 
 !Config Key  = OCEAN 
 !Config Desc = Type d'ocean
@@ -1094 +1096 @@
   call getin('alphas',alphas_omp)
 
+!Config key = ok_strato
+!Config  Desc = activation de la version strato
+!Config  Def  = .FALSE.
+!Config  Help = active la version stratosphérique de LMDZ de F. Lott
+
+  ok_strato_omp=.FALSE.
+  CALL getin('ok_strato',ok_strato_omp)
+      
+!Config  key = ok_hines
+!Config  Desc = activation de la parametrisation de hines
+!Config  Def  = .FALSE.
+!Config  Help = Clefs controlant la parametrization de Hines
+!               Et la sponge layer (Runs Stratospheriques)
+
+  ok_hines_omp=.FALSE.
+  CALL getin('ok_hines',ok_hines_omp)
 
 
@@ -1210 +1228 @@
     Fmax = Fmax_omp
     alphas = alphas_omp
-
-!$OMP MASTER
+    ok_strato = ok_strato_omp
+    ok_hines = ok_hines_omp
+    
 
 ! Attribution of new parmeters according to parameters in .def
@@ -1230 +1249 @@
        CALL abort_gcm('conf_phys','ocean not valid',1)
     END IF
+
+!$OMP MASTER
 
   write(numout,*)' ##############################################'
@@ -1327 +1348 @@
  & ecrit_hf, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra, ecrit_ISCCP
 
+  write(numout,*) 'ok_strato = ', ok_strato
+  write(numout,*) 'ok_hines = ',  ok_hines
+  
 !$OMP END MASTER