Changeset 7134 for branches/UKMO/r5936_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2016-10-27T13:30:10+02:00 (7 years ago)

Author:

jcastill

Message:

Version as in UKMO/dev_r5107_hadgem3_cplseq@5646

File:

• branches/UKMO/r5936_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (2 diffs)

branches/UKMO/r5936_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -70 +70 @@
    USE icbini          ! handle bergs, initialisation
    USE icbstp          ! handle bergs, calving, themodynamics and transport
+   USE sbccpl
    USE cpl_oasis3      ! OASIS3 coupling
    USE c1d             ! 1D configuration
@@ -171 +172 @@
             CALL stp                         ! AGRIF: time stepping
 #else
-            CALL stp( istp )                 ! standard time stepping
+         IF (lk_oasis) CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
+         CALL stp( istp ) 
+         ! We don't couple on the final timestep because 
+         ! our restart file has already been written 
+         ! and contains all the necessary data for a 
+         ! restart. sbc_cpl_snd could be called here 
+         ! but it would require 
+         ! a) A test to ensure it was not performed 
+         !    on the very last time-step 
+         ! b) the presence of another call to 
+         !    sbc_cpl_snd call prior to the main DO loop 
+         ! This solution produces identical results 
+         ! with fewer lines of code.  
 #endif
             istp = istp + 1