Ignore:
Timestamp:
2019-11-05T15:23:53+01:00 (11 months ago)
Author:
gsamson
Message:

dev_r11265_ABL: bulks compatibility with 3D atmospheric forcing (by reading only the first level) (#2131)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/IOM/iom.F90

    r11586 r11857  
    11581158            WRITE(cldmspc , fmt='(i1)') idmspc 
    11591159            ! 
    1160             IF(     idmspc <  irankpv ) THEN  
    1161                CALL ctl_stop( TRIM(clinfo), 'The file has only '//cldmspc//' spatial dimension',   & 
    1162                   &                         'it is impossible to read a '//clrankpv//'D array from this file...' ) 
    1163             ELSEIF( idmspc == irankpv ) THEN 
     1160            !!GS: we consider 2D data as 3D data with vertical dim size = 1 
     1161            !IF(     idmspc <  irankpv ) THEN  
     1162            !   CALL ctl_stop( TRIM(clinfo), 'The file has only '//cldmspc//' spatial dimension',   & 
     1163            !      &                         'it is impossible to read a '//clrankpv//'D array from this file...' ) 
     1164            !ELSEIF( idmspc == irankpv ) THEN 
     1165            IF( idmspc == irankpv ) THEN 
    11641166               IF( PRESENT(pv_r1d) .AND. idom /= jpdom_unknown )   & 
    11651167                  &   CALL ctl_stop( TRIM(clinfo), 'case not coded...You must use jpdom_unknown' ) 
Note: See TracChangeset for help on using the changeset viewer.