Changeset 13443 for NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/nemogcm.F90

Timestamp:

2020-08-28T17:01:04+02:00 (4 years ago)

Author:

frrh

Message:

Commit changes which allow first working 2 way coupling exchanges between GO8
and LFRic aquaplanet.

File:

• NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/nemogcm.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/nemogcm.F90

@@ -203 +203 @@
             ! RSRH. You can compile with OASIS but not want to do any
             ! coupling. We need to cater for that properly!
-            IF (ln_cpl) CALL sbc_cpl_snd( istp )  ! Coupling to atmos
+            IF (ln_cpl .OR. ln_couple_test) CALL sbc_cpl_snd( istp )  ! Coupling to atmos
+            ! RSRH. For test purposes we call the receive here. For proper
+            ! runs we need to do this elsewhere (reference UKESM/GC3 etc)  
+            !IF (ln_cpl .OR. ln_couple_test) CALL sbc_cpl_rcv( istp )  ! Coupling from atmos
 
             CALL stp        ( istp ) 
@@ -303 +306 @@
       IF( lk_oasis ) THEN
           CALL mpi_init(nerror)
-          CALL oasis_init_comp ( ncomp_id, "toyoce", nerror, .FALSE. )
+          CALL oasis_init_comp ( ncomp_id, "toyoce", nerror, .TRUE. )
 !          CALL cpl_init( "toyoce", ilocal_comm ) 
           CALL oasis_get_localcomm ( ilocal_comm , nerror )