Changeset 1202 for LMDZ4


Ignore:
Timestamp:
Jul 7, 2009, 4:48:23 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Probleme dans le test pour savoir si les latitudes sont inversees ou non
FH/LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/readaerosol.F90

    r1189 r1202  
    243243       CALL check_err( nf90_get_var(ncid, varid, lon_src(:)) )
    244244       
    245        IF (minval(ABS(lon_src - io_lon)) > 0.001) THEN
     245       IF (maxval(ABS(lon_src - io_lon)) > 0.001) THEN
    246246          WRITE(lunout,*) 'Problem in longitudes read from file : ',TRIM(fname)
    247247          WRITE(lunout,*) 'longitudes in file ', TRIM(fname),' : ', lon_src
     
    260260       END DO
    261261
    262        IF (minval(ABS(lat_src - io_lat)) < 0.001) THEN
     262       IF (maxval(ABS(lat_src - io_lat)) < 0.001) THEN
    263263          ! Latitudes are the same
    264264          invert_lat=.FALSE.
    265        ELSE IF (minval(ABS(lat_src_inv - io_lat)) < 0.001) THEN
     265       ELSE IF (maxval(ABS(lat_src_inv - io_lat)) < 0.001) THEN
    266266          ! Inverted source latitudes correspond to model latitudes
    267267          WRITE(lunout,*) 'latitudes will be inverted for file : ',TRIM(fname)
Note: See TracChangeset for help on using the changeset viewer.