Changeset 1143 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/conf_gcm.F

Timestamp:

Apr 7, 2009, 6:41:02 PM (15 years ago)

Author:

jghattas

Message:

Recuperation des developpements fait uniquement sur la branche LMDZ4_V4_patches :

• ajoute de la nouvelle flag ok_dynzon
• ajoute du parametre aer_type
• optimisation : isccp_cloud_types.F

+ bug pour le slab dans conf_phys.F90

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/conf_gcm.F (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/conf_gcm.F

@@ -556 +556 @@
       config_inca = 'none'
       CALL getin('config_inca',config_inca)
+
+!Config  Key  = ok_dynzon 
+!Config  Desc = calcul et sortie des transports 
+!Config  Def  = n 
+!Config  Help = Permet de mettre en route le calcul des transports 
+!Config          
+      ok_dynzon = .FALSE. 
+      CALL getin('ok_dynzon',ok_dynzon) 
 
 
@@ -593 +601 @@
       write(lunout,*)' offline = ', offline
       write(lunout,*)' config_inca = ', config_inca
+      write(lunout,*)' ok_dynzon = ', ok_dynzon 
 
       RETURN
@@ -717 +726 @@
       config_inca = 'none'
       CALL getin('config_inca',config_inca)
+
+!Config  Key  = ok_dynzon 
+!Config  Desc = calcul et sortie des transports 
+!Config  Def  = n 
+!Config  Help = Permet de mettre en route le calcul des transports 
+!Config          
+      ok_dynzon = .FALSE. 
+      CALL getin('ok_dynzon',ok_dynzon) 
 
 !Config  Key  = use_filtre_fft
@@ -807 +824 @@
       write(lunout,*)' offline = ', offline
       write(lunout,*)' config_inca = ', config_inca
+      write(lunout,*)' ok_dynzon = ', ok_dynzon 
       write(lunout,*)' use_filtre_fft = ', use_filtre_fft
       write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc