Changeset 10763 for NEMO/branches/UKMO/r8395_coupling_sequence/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2019-03-15T13:10:04+01:00 (5 years ago)

Author:

jcastill

Message:

Remove svn keywords properly

File:

• NEMO/branches/UKMO/r8395_coupling_sequence/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (6 diffs)

NEMO/branches/UKMO/r8395_coupling_sequence/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -90 +90 @@
    USE lbcnfd , ONLY  : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges 
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
-   USE sbccpl
 #if defined key_iomput
    USE xios           ! xIOserver
@@ -106 +105 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 3.7 , NEMO Consortium (2016)
-   !! $Id: nemogcm.F90 7761 2017-03-06 17:58:35Z clem $
+   !! $Id$
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -182 +181 @@
 #else
             IF ( .NOT. ln_diurnal_only ) THEN 
-               IF (lk_oasis) CALL sbc_cpl_snd( istp )  ! Coupling to atmos
                CALL stp( istp )                 ! standard time stepping 
-               ! We don't couple on the final timestep because 
-               ! our restart file has already been written 
-               ! and contains all the necessary data for a 
-               ! restart. sbc_cpl_snd could be called here 
-               ! but it would require 
-               ! a) A test to ensure it was not performed 
-               !    on the very last time-step 
-               ! b) the presence of another call to 
-               !    sbc_cpl_snd call prior to the main DO loop 
-               ! This solution produces identical results 
-               ! with fewer lines of code.
             ELSE 
                CALL stp_diurnal( istp )        ! time step only the diurnal SST 
@@ -317 +304 @@
       IF( Agrif_Root() ) THEN
          IF( lk_oasis ) THEN
-            CALL cpl_init( "toyoce", ilocal_comm )                               ! nemo local communicator given by oasis
+            CALL cpl_init( "oceanx", ilocal_comm )                               ! nemo local communicator given by oasis
             CALL xios_initialize( "not used"       ,local_comm= ilocal_comm )    ! send nemo communicator to xios
          ELSE
@@ -328 +315 @@
       IF( lk_oasis ) THEN
          IF( Agrif_Root() ) THEN
-            CALL cpl_init( "toyoce", ilocal_comm )          ! nemo local communicator given by oasis
+            CALL cpl_init( "oceanx", ilocal_comm )          ! nemo local communicator given by oasis
          ENDIF
          ! Nodes selection (control print return in cltxt)
@@ -529 +516 @@
                             CALL dia_tmb_init  ! TMB outputs
                             CALL dia_25h_init  ! 25h mean  outputs
-     
-      IF (nstop > 0) THEN 
-        CALL CTL_STOP('STOP','Critical errors in NEMO initialisation') 
-      END IF 
       !
    END SUBROUTINE nemo_init