Changeset 960 for LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F

Timestamp:

May 27, 2008, 6:46:50 PM (17 years ago)

Author:

lsce

Message:

• Ajoute du parametre config_inca dans conf_gcm.F config_inca='none'(sans INCA, par defaut) config_inca='chem'(avec INCA config chemie) config_inca='aero'(avec INCA config aerosol)
• Menage parmis les cles CPP INCA
• Enleve le calcul d'omega dans calfis.F et active le calcul correspondant dans advtrac.F(avant uniquement pour INCA).

JG

File:

• LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F

@@ -600 +600 @@
        offline = .FALSE.
        CALL getin('offline',offline)
+
+!Config  Key  = config_inca
+!Config  Desc = Choix de configuration de INCA
+!Config  Def  = none
+!Config  Help = Choix de configuration de INCA :
+!Config         'none' = sans INCA
+!Config         'chem' = INCA avec calcul de chemie
+!Config         'aero' = INCA avec calcul des aerosols 
+      config_inca = 'none'
+      CALL getin('config_inca',config_inca)
 
 
@@ -643 +653 @@
       write(lunout,*)' tauyy = ', tauyy
       write(lunout,*)' offline = ', offline
+      write(lunout,*)' config_inca = ', config_inca
 
       RETURN
@@ -755 +766 @@
        offline = .FALSE.
        CALL getin('offline',offline)
-      write(lunout,*)' offline = ', offline
+
+!Config  Key  = config_inca
+!Config  Desc = Choix de configuration de INCA
+!Config  Def  = none
+!Config  Help = Choix de configuration de INCA :
+!Config         'none' = sans INCA
+!Config         'chem' = INCA avec calcul de chemie
+!Config         'aero' = INCA avec calcul des aerosols 
+      config_inca = 'none'
+      CALL getin('config_inca',config_inca)
 
 
@@ -799 +819 @@
       write(lunout,*)' tauy = ', tauy
       write(lunout,*)' offline = ', offline
+      write(lunout,*)' config_inca = ', config_inca
 c
       RETURN