Changeset 1689 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Apr 7, 2017, 2:40:27 PM (8 years ago)

Author:

emillour

Message:

Mars GCM:
Fixing a big bug (dating from revision 1528) in wstats.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/wstats.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/wstats.F90

@@ -219 +219 @@
       start=(/1,1,indx,0/)
       if (klon_glo>1) then !general case
-        sizes=(/nbp_lon+1,nbp_lev,1,0/)
+        sizes=(/nbp_lon+1,nbp_lat,1,0/)
       else
         sizes=(/1,1,1,0/)