Ignore:
Timestamp:
2018-12-14T15:34:18+01:00 (23 months ago)
Author:
jcastill
Message:

Merged r6232_hadgem3_cplseq@7460 branch

File:
1 edited

Legend:

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

    r9181 r10394  
    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 
     
    173174            CALL stp                         ! AGRIF: time stepping 
    174175#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.   
    176189#endif 
    177190            istp = istp + 1 
Note: See TracChangeset for help on using the changeset viewer.