Ignore:
Timestamp:
2019-06-13T18:20:13+02:00 (18 months ago)
Author:
dancopsey
Message:

Merged in changes from dev_merge_2017_GC_couple_pkg branch except for zotx1 and zoty1 changes in sbccpl.F90.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/nemogcm.F90

    r10888 r11105  
    8686   USE lbcnfd  , ONLY : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges  
    8787   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
     88   USE sbccpl  
    8889#if defined key_iomput 
    8990   USE xios           ! xIOserver 
     
    193194            IF ( istp ==         nitend ) elapsed_time = MPI_Wtime() - elapsed_time 
    194195#endif 
     196            IF (lk_oasis) THEN 
     197               CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
     198            ENDIF 
    195199            CALL stp        ( istp )  
    196200            istp = istp + 1 
     
    200204         ! 
    201205         DO WHILE( istp <= nitend .AND. nstop == 0 ) 
    202             CALL stp_diurnal( istp )   ! time step only the diurnal SST  
     206            CALL stp_diurnal( istp )   ! time step only the diurnal SST 
    203207            istp = istp + 1 
    204208         END DO 
     
    305309      IF( Agrif_Root() ) THEN 
    306310         IF( lk_oasis ) THEN 
    307             CALL cpl_init( "oceanx", ilocal_comm )                               ! nemo local communicator given by oasis 
     311            CALL cpl_init( "toyoce", ilocal_comm )                     ! nemo local communicator given by oasis 
    308312            CALL xios_initialize( "not used"       ,local_comm= ilocal_comm )    ! send nemo communicator to xios 
    309313         ELSE 
     
    316320      IF( lk_oasis ) THEN 
    317321         IF( Agrif_Root() ) THEN 
    318             CALL cpl_init( "oceanx", ilocal_comm )          ! nemo local communicator given by oasis 
     322            CALL cpl_init( "toyoce", ilocal_comm )                      ! nemo local communicator given by oasis 
    319323         ENDIF 
    320324         ! Nodes selection (control print return in cltxt) 
     
    495499      ! 
    496500      IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
     501       
     502      IF (nstop > 0) THEN 
     503        CALL CTL_STOP('STOP','Critical errors in NEMO initialisation') 
     504      END IF 
     505       
    497506      ! 
    498507      IF( ln_timing    )   CALL timing_stop( 'nemo_init') 
Note: See TracChangeset for help on using the changeset viewer.