Changeset 13365 for NEMO/branches/2020/tickets_icb_1900/src/SAS/sbcssm.F90
- Timestamp:
- 2020-07-30T18:57:15+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900/src/SAS/sbcssm.F90
r12615 r13365 21 21 USE zpshde ! z-coord. with partial steps: horizontal derivatives 22 22 USE closea ! for ln_closea 23 USE icb_oce ! for icebergs 23 24 ! 24 25 USE in_out_manager ! I/O manager … … 226 227 ln_closea = .false. 227 228 ENDIF 228 229 IF( ln_icebergs .AND. ln_M2016 ) THEN 230 IF( lwp ) WRITE(numout,*) ' ==>>> ln_iceberg and ln_M2016 not compatible with SAS (need 3d data)' 231 CALL ctl_stop('ln_iceberg and ln_M2016 not compatible with SAS (need 3d data)') 232 END IF 229 233 ! 230 234 IF( l_sasread ) THEN ! store namelist information in an array
Note: See TracChangeset
for help on using the changeset viewer.