Changeset 1315 for LMDZ4/trunk/libf/dyn3d

Timestamp:

Feb 22, 2010, 3:41:06 PM (15 years ago)

Author:

acozic

Message:

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

File:

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

LMDZ4/trunk/libf/dyn3d/gcm.F

@@ -75 +75 @@
 #include "iniprint.h"
 #include "tracstoke.h"
+#include "indicesol.h"
 
       INTEGER         longcles
@@ -210 +211 @@
       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