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