Changeset 960 for LMDZ4/trunk/libf/dyn3d/create_etat0_limit.F

Timestamp:

May 27, 2008, 6:46:50 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).

JG

File:

• LMDZ4/trunk/libf/dyn3d/create_etat0_limit.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/create_etat0_limit.F

@@ -29 +29 @@
 #include "indicesol.h"
 #include "advtrac.h"
-cym#include "dimphy.h" 
+#include  "control.h"
       REAL :: masque(iip1,jjp1)
       REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
@@ -43 +43 @@
       mmt_adj(:,:,:,:) = 1
 
+      IF (config_inca /= 'none') THEN
 #ifdef INCA
-      call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
-      print *, 'nbtrac =' , nbtrac 
+         call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
 #endif
+         print *, 'nbtrac =' , nbtrac 
+      END IF
 
       CALL Init_Phys_lmdz(iim,jjp1,llm,nqmx-2,1,(jjm-1)*iim+2)