Changeset 959 for LMDZ4/trunk/libf/phylmd/ini_histrac.h

Timestamp:

May 27, 2008, 6:42:49 PM (16 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).

File:

• LMDZ4/trunk/libf/phylmd/ini_histrac.h (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/ini_histrac.h

@@ -2 +2 @@
 ! $Header$
 !
-#ifndef INCA
+      IF (config_inca == 'none') THEN
 c$OMP MASTER 
          CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
@@ -127 +127 @@
          ndex = 0
 c$OMP END MASTER
-#endif
+      END IF