Changeset 6043 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
- Timestamp:
- 2015-12-14T10:27:28+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r5600 r6043 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 16 15 USE fldread ! read input fields … … 62 61 !!--------------------------------------------------------------------- 63 62 INTEGER, INTENT(in):: kt ! ocean time step 64 ! !63 ! 65 64 INTEGER :: ierror ! local integer 66 65 INTEGER :: ios ! Local integer output status for namelist read … … 71 70 NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rn_pref, ln_apr_obc 72 71 !!---------------------------------------------------------------------- 73 !74 72 ! 75 73 ! ! -------------------- ! … … 113 111 IF(lwp) WRITE(numout,*) ' Inverse barometer added to OBC ssh data' 114 112 ENDIF 115 IF( ( ln_apr_obc ) .AND. .NOT. lk_dynspg_ts ) & 116 CALL ctl_stop( 'sbc_apr: use inverse barometer ssh at open boundary ONLY possible with time-splitting' ) 113 !jc: stop below should rather be a warning 117 114 IF( ( ln_apr_obc ) .AND. .NOT. ln_apr_dyn ) & 118 115 CALL ctl_stop( 'sbc_apr: use inverse barometer ssh at open boundary ONLY requires ln_apr_dyn=T' )
Note: See TracChangeset
for help on using the changeset viewer.