Changeset 1316 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/gcm.F

Timestamp:

Feb 22, 2010, 3:51:12 PM (14 years ago)

Author:

acozic

Message:

acozic: add argument in init_const_lmdz call for initialisation of INCA model

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/gcm.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/gcm.F

@@ -76 +76 @@
 #include "iniprint.h"
 #include "tracstoke.h"
+#include "indicesol.h"
 
       INTEGER         longcles
@@ -211 +212 @@
       IF (config_inca /= 'none') THEN
 #ifdef INCA
-      call init_const_lmdz(nbtr,anneeref,dayref,iphysiq,day_step,nday)
+      call init_const_lmdz(nbtr,anneeref,dayref,iphysiq,day_step,nday, 
+     $        nbsrf, is_oce,is_sic,is_ter,is_lic)
       call init_inca_para(iim,jjm+1,klon,1,klon_mpi_para_nb,0)
 #endif