- Timestamp:
- 2016-07-19T10:38:35+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r5215 r6808 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 … … 39 39 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_apr ! structure of input fields (file informations, fields read) 40 40 41 !! * Substitutions42 # include "domzgr_substitute.h90"43 41 !!---------------------------------------------------------------------- 44 42 !! NEMO/OPA 4.0 , NEMO Consortium (2011) … … 62 60 !!--------------------------------------------------------------------- 63 61 INTEGER, INTENT(in):: kt ! ocean time step 64 ! !62 ! 65 63 INTEGER :: ierror ! local integer 66 64 INTEGER :: ios ! Local integer output status for namelist read … … 71 69 NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rn_pref, ln_apr_obc 72 70 !!---------------------------------------------------------------------- 73 !74 71 ! 75 72 ! ! -------------------- ! … … 113 110 IF(lwp) WRITE(numout,*) ' Inverse barometer added to OBC ssh data' 114 111 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' ) 117 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 ) & 118 114 CALL ctl_stop( 'sbc_apr: use inverse barometer ssh at open boundary ONLY requires ln_apr_dyn=T' ) 119 115 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.