Changeset 1370 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Nov 20, 2014, 3:36:23 PM (10 years ago)
Author:
jbmadeleine
Message:

Improved the supercontinent option of newstart

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/newstart.F

    r1369 r1370  
    13251325
    13261326c             Supercontinent:
    1327               if (((rlatu(j)*180./pi.lt.val4).and.
    1328      &            (rlatu(j)*180./pi.gt.val3).and.
    1329      &            (rlonv(i)*180./pi.lt.val2).and.
    1330      &            (rlonv(i)*180./pi.gt.val))) then
     1327              if (((rlatu(j)*180./pi.le.val4).and.
     1328     &            (rlatu(j)*180./pi.ge.val3).and.
     1329     &            (rlonv(i)*180./pi.le.val2).and.
     1330     &            (rlonv(i)*180./pi.ge.val))) then
    13311331
    13321332                rnat(ig)=1.
Note: See TracChangeset for help on using the changeset viewer.