Changeset 10394 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2018-12-14T15:34:18+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r9181 r10394 68 68 USE icbini ! handle bergs, initialisation 69 69 USE icbstp ! handle bergs, calving, themodynamics and transport 70 USE sbccpl 70 71 USE cpl_oasis3 ! OASIS3 coupling 71 72 USE c1d ! 1D configuration … … 173 174 CALL stp ! AGRIF: time stepping 174 175 #else 175 CALL stp( istp ) ! standard time stepping 176 IF (lk_oasis) CALL sbc_cpl_snd( istp ) ! Coupling to atmos 177 CALL stp( istp ) 178 ! We don't couple on the final timestep because 179 ! our restart file has already been written 180 ! and contains all the necessary data for a 181 ! restart. sbc_cpl_snd could be called here 182 ! but it would require 183 ! a) A test to ensure it was not performed 184 ! on the very last time-step 185 ! b) the presence of another call to 186 ! sbc_cpl_snd call prior to the main DO loop 187 ! This solution produces identical results 188 ! with fewer lines of code. 176 189 #endif 177 190 istp = istp + 1
Note: See TracChangeset
for help on using the changeset viewer.