Changeset 1207

Timestamp:

Mar 12, 2014, 2:31:45 PM (12 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

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/surfini.F (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -1993 +1993 @@
   it is IR absorption opacity (and is multiplied by 2.6 to be converted to
   visible extinction opacity).
+
+== 12/03/2014 == EM
+- 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
+

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