Changeset 13253 for NEMO/branches/2020/ticket2447/src/OCE/ZDF/zdfosm.F90
- Timestamp:
- 2020-07-06T10:39:32+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/ticket2447/src/OCE/ZDF/zdfosm.F90
r11536 r13253 1420 1420 ENDIF 1421 1421 1422 1423 ! ! Check wave coupling settings ! 1424 ! ! Further work needed - see ticket #2447 ! 1425 IF( nn_osm_wave == 2 ) THEN 1426 IF (.NOT. ( ln_wave .AND. ln_sdw )) & 1427 & CALL ctl_stop( 'zdf_osm_init : ln_zdfosm and nn_osm_wave=2, ln_wave and ln_sdw must be true' ) 1428 END IF 1429 1422 1430 ! ! allocate zdfosm arrays 1423 1431 IF( zdf_osm_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'zdf_osm_init : unable to allocate arrays' )
Note: See TracChangeset
for help on using the changeset viewer.