Changeset 1690 for trunk/LMDZ.GENERIC/libf/phystd/wstats.F90

Timestamp:

Apr 7, 2017, 2:51:49 PM (8 years ago)

Author:

emillour

Message:

Generic GCM:
Fixing a big bug (dating from revision 1529) in wstats.
EM
--This line, and those below, will be ignored--

M LMDZ.COMMON/arch/arch-X64_ADA.fcm

File:

• trunk/LMDZ.GENERIC/libf/phystd/wstats.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/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/)