Changeset 1689 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Apr 7, 2017, 2:40:27 PM (9 years ago)
Author:
emillour
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1560 r1689  
    219219      start=(/1,1,indx,0/)
    220220      if (klon_glo>1) then !general case
    221         sizes=(/nbp_lon+1,nbp_lev,1,0/)
     221        sizes=(/nbp_lon+1,nbp_lat,1,0/)
    222222      else
    223223        sizes=(/1,1,1,0/)
Note: See TracChangeset for help on using the changeset viewer.