- Timestamp:
- 2017-12-04T10:41:40+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/SAS_SRC/step.F90
r8882 r8885 24 24 USE diawri ! Standard run outputs (dia_wri routine) 25 25 USE bdy_oce , ONLY: ln_bdy 26 USE bdydta ! clem: mandatory for ESIM26 USE bdydta ! mandatory for sea-ice 27 27 USE stpctl ! time stepping control (stp_ctl routine) 28 28 ! … … 37 37 38 38 #if defined key_agrif 39 USE agrif_oce, ONLY: lk_agrif_debug !clem39 USE agrif_oce, ONLY: lk_agrif_debug 40 40 #endif 41 41 … … 89 89 CALL iom_setkt( kstp - nit000 + 1, cxios_context ) ! tell iom we are at time step kstp 90 90 91 ! ==> clem: open boundaries is mandatory for ESIMbecause ice BDY is not decoupled from91 ! ==> clem: open boundaries is mandatory for sea-ice because ice BDY is not decoupled from 92 92 ! the environment of ocean BDY. Therefore bdy is called in both OPA and SAS modules. 93 93 ! From SAS: ocean bdy data are wrong (but we do not care) and ice bdy data are OK. … … 114 114 CALL dia_wri_state( 'output.abort', kstp ) 115 115 ENDIF 116 IF( kstp == nit000 ) CALL iom_close( numror ) ! close input ocean restart file (clem: not sure...)116 IF( kstp == nit000 ) CALL iom_close( numror ) ! close input ocean restart file 117 117 118 118 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Note: See TracChangeset
for help on using the changeset viewer.