- Timestamp:
- 2019-11-05T15:23:53+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/IOM/iom.F90
r11586 r11857 1158 1158 WRITE(cldmspc , fmt='(i1)') idmspc 1159 1159 ! 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 1164 1166 IF( PRESENT(pv_r1d) .AND. idom /= jpdom_unknown ) & 1165 1167 & CALL ctl_stop( TRIM(clinfo), 'case not coded...You must use jpdom_unknown' )
Note: See TracChangeset
for help on using the changeset viewer.