New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5479 for branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2015-06-24T16:35:45+02:00 (9 years ago)
Author:
cguiavarch
Message:

Changes for sequence of coupling calls in HadGEM3.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r5477 r5479  
    6868   USE icbini          ! handle bergs, initialisation 
    6969   USE icbstp          ! handle bergs, calving, themodynamics and transport 
     70   USE sbccpl  
    7071   USE cpl_oasis3      ! OASIS3 coupling 
    7172   USE c1d             ! 1D configuration 
     
    162163            CALL Agrif_Step( stp )           ! AGRIF: time stepping 
    163164#else 
    164             CALL stp( istp )                 ! standard time stepping 
     165            IF (ln_cpl) CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
     166       CALL stp( istp ) 
     167            ! We don't couple on the final timestep because 
     168            ! our restart file has already been written 
     169            ! and contains all the necessary data for a 
     170            ! restart. sbc_cpl_snd could be called here 
     171            ! but it would require 
     172            ! a) A test to ensure it was not performed 
     173            !    on the very last time-step 
     174            ! b) the presence of another call to 
     175            !    sbc_cpl_snd call prior to the main DO loop 
     176            ! This solution produces identical results 
     177            ! with fewer lines of code.  
    165178#endif 
    166179            istp = istp + 1 
Note: See TracChangeset for help on using the changeset viewer.