Changeset 960 for LMDZ4/trunk/libf/dyn3dpar/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/gcm.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/gcm.F

@@ -230 +230 @@
       call InitComgeomphy
 c$OMP END PARALLEL 
+
+      IF (config_inca /= 'none') THEN
 #ifdef INCA
-      call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
-      call init_inca_para(iim,jjm+1,klon_glo,mpi_size,klon_mpi_para_nb,
-     $ COMM_LMDZ)
-#endif
+         call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
+         call init_inca_para(iim,jjm+1,klon_glo,mpi_size,klon_mpi_para_nb,
+     $        COMM_LMDZ)
+#endif
+      END IF
 
 c-----------------------------------------------------------------------
@@ -262 +265 @@
       endif
 
+      IF (config_inca /= 'none') THEN
 #ifdef INCA
-      call init_inca_dim(klon,llm,iim,jjm,
-     $     rlonu,rlatu,rlonv,rlatv)
-#endif
-
+         call init_inca_dim(klon,llm,iim,jjm,
+     $        rlonu,rlatu,rlonv,rlatv)
+#endif
+      END IF
 
 c le cas echeant, creation d un etat initial