- Timestamp:
- 2015-12-04T17:05:58+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r5845 r6004 12 12 USE dom_oce ! ocean space and time domain 13 13 USE sbc_oce ! surface boundary condition 14 USE dynspg_oce ! surface pressure gradient variables15 14 USE phycst ! physical constants 15 ! 16 16 USE fldread ! read input fields 17 17 USE in_out_manager ! I/O manager … … 110 110 IF(lwp) WRITE(numout,*) ' Inverse barometer added to OBC ssh data' 111 111 ENDIF 112 IF( ( ln_apr_obc ) .AND. .NOT. lk_dynspg_ts ) & 113 CALL ctl_stop( 'sbc_apr: use inverse barometer ssh at open boundary ONLY possible with time-splitting' ) 114 IF( ( ln_apr_obc ) .AND. .NOT. ln_apr_dyn ) & 112 !jc: stop below should rather be a warning 113 IF( ln_apr_obc .AND. .NOT.ln_apr_dyn ) & 115 114 CALL ctl_stop( 'sbc_apr: use inverse barometer ssh at open boundary ONLY requires ln_apr_dyn=T' ) 116 115 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.