Ignore:
Timestamp:
2018-06-15T12:13:34+02:00 (2 years ago)
Author:
dancopsey
Message:

Move call to sbc_cpl_snd to correct location.

File:
1 edited

Legend:

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

    r9679 r9804  
    179179         ! 
    180180         DO WHILE( istp <= nitend .AND. nstop == 0 ) 
     181            IF (lk_oasis) THEN 
     182               CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
     183            ENDIF 
    181184            CALL stp        ( istp )  
    182185            istp = istp + 1 
     
    186189         ! 
    187190         DO WHILE( istp <= nitend .AND. nstop == 0 ) 
    188             IF ( .NOT. ln_diurnal_only ) THEN  
    189                IF (lk_oasis) CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
    190                CALL stp( istp )                 ! standard time stepping  
    191                ! We don't couple on the final timestep because 
    192                ! our restart file has already been written 
    193                ! and contains all the necessary data for a 
    194                ! restart. sbc_cpl_snd could be called here 
    195                ! but it would require 
    196                ! a) A test to ensure it was not performed 
    197                !    on the very last time-step 
    198                ! b) the presence of another call to 
    199                !    sbc_cpl_snd call prior to the main DO loop 
    200                ! This solution produces identical results 
    201                ! with fewer lines of code.  
    202             ELSE 
    203                CALL stp_diurnal( istp )   ! time step only the diurnal SST  
    204             ENDIF 
     191            CALL stp_diurnal( istp )   ! time step only the diurnal SST 
    205192            istp = istp + 1 
    206193         END DO 
Note: See TracChangeset for help on using the changeset viewer.