Ignore:
Timestamp:
May 10, 2013, 10:59:04 AM (12 years ago)
Author:
emillour
Message:

Mars GCM:

  • bug correction in "extract" utility

FGG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/util/extract.F90

    r312 r954  
    357357  ! we want lon in [-180:180]
    358358  if (lon.lt.-180.) lon=lon+360.
    359   if (lon.gt.180.) lon=lon-180
     359  if (lon.gt.180.) lon=lon-360.
    360360 
    361361  if ((lat.lt.-90.).or.(lat.gt.90.)) then
Note: See TracChangeset for help on using the changeset viewer.