- Timestamp:
- 2016-01-08T10:35:19+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4704_NOC5_MPP_BDY_UPDATE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
- Property svn:keywords set to Id
r4624 r6225 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) 45 !! $Id :$43 !! $Id$ 46 44 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 47 45 !!---------------------------------------------------------------------- … … 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.