Changeset 1207 for trunk/LMDZ.MARS/libf/phymars/surfini.F

Timestamp:

Mar 12, 2014, 2:31:45 PM (11 years ago)

Author:

emillour

Message:

Mars GCM:
Bug fix in surfini.F, nb_ice array should be the size of the full grid.
Only was an issue when runiing in MPI and mode icelocationmode = 1
Note that it would make more sense for the initialization of watercaptag and co.
to be done in newstart, and that these values be stored in startfi.nc
EM

File:

• trunk/LMDZ.MARS/libf/phymars/surfini.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/surfini.F

@@ -55 +55 @@
       REAL        zelat,zelon 
 
-#ifdef CPP_PARA
-      INTEGER nb_ice(ngrid,2)              ! number of counts | detected ice for GCM grid
-#else
-      INTEGER nb_ice(klon_glo,2)
-#endif
+      INTEGER nb_ice(klon_glo,2)   ! number of counts | detected ice for GCM grid
       INTEGER latice(jjm,2),lonice (iim,2) ! number of counts | detected ice along lat & lon axis