Ignore:
Timestamp:
2019-03-15T13:13:07+01:00 (23 months ago)
Author:
jcastill
Message:

Minimal set of changes for coupling order

File:
1 edited

Legend:

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

    r10763 r10764  
    9090   USE lbcnfd , ONLY  : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges  
    9191   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
     92   USE sbccpl 
    9293#if defined key_iomput 
    9394   USE xios           ! xIOserver 
     
    181182#else 
    182183            IF ( .NOT. ln_diurnal_only ) THEN  
     184               IF (lk_oasis) CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
    183185               CALL stp( istp )                 ! standard time stepping  
     186               ! We don't couple on the final timestep because  
     187               ! our restart file has already been written  
     188               ! and contains all the necessary data for a  
     189               ! restart. sbc_cpl_snd could be called here  
     190               ! but it would require  
     191               ! a) A test to ensure it was not performed  
     192               !    on the very last time-step  
     193               ! b) the presence of another call to  
     194               !    sbc_cpl_snd call prior to the main DO loop  
     195               ! This solution produces identical results  
     196               ! with fewer lines of code. 
    184197            ELSE  
    185198               CALL stp_diurnal( istp )        ! time step only the diurnal SST  
     
    304317      IF( Agrif_Root() ) THEN 
    305318         IF( lk_oasis ) THEN 
    306             CALL cpl_init( "oceanx", ilocal_comm )                               ! nemo local communicator given by oasis 
     319            CALL cpl_init( "toyoce", ilocal_comm )                               ! nemo local communicator given by oasis 
    307320            CALL xios_initialize( "not used"       ,local_comm= ilocal_comm )    ! send nemo communicator to xios 
    308321         ELSE 
     
    315328      IF( lk_oasis ) THEN 
    316329         IF( Agrif_Root() ) THEN 
    317             CALL cpl_init( "oceanx", ilocal_comm )          ! nemo local communicator given by oasis 
     330            CALL cpl_init( "toyoce", ilocal_comm )          ! nemo local communicator given by oasis 
    318331         ENDIF 
    319332         ! Nodes selection (control print return in cltxt) 
     
    516529                            CALL dia_tmb_init  ! TMB outputs 
    517530                            CALL dia_25h_init  ! 25h mean  outputs 
     531      
     532      IF (nstop > 0) THEN  
     533        CALL CTL_STOP('STOP','Critical errors in NEMO initialisation')  
     534      END IF  
    518535      ! 
    519536   END SUBROUTINE nemo_init 
Note: See TracChangeset for help on using the changeset viewer.