- Timestamp:
- 2020-07-09T12:39:43+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdfosm.F90
r11536 r13279 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.