Changeset 13443 for NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/SBC/cpl_oasis3.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/SBC/cpl_oasis3.F90 (modified) (6 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/SBC/cpl_oasis3.F90

@@ -76 +76 @@
    TYPE, PUBLIC ::   FLD_CPL               !: Type for coupling field information
       LOGICAL               ::   laction   ! To be coupled or not
-      CHARACTER(len = 8)    ::   clname    ! Name of the coupling field   
+      CHARACTER(len = 30)    ::   clname    ! Name of the coupling field   
       CHARACTER(len = 1)    ::   clgrid    ! Grid type  
       REAL(wp)              ::   nsgn      ! Control of the sign change
@@ -164 +164 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~~~'
       IF(lwp) WRITE(numout,*)
+
+      WRITE(numout,*) "RSRH inside cpl_define" ; flush(numout)
 
       ncplmodel = kcplmodel
@@ -212 +214 @@
          WRITE(numout,*) ' multiexchg: nldj, nlej, njmpp =', nldj, nlej, njmpp
       ENDIF
-   
+       WRITE(numout,*) "RSRH calling def partition" ; flush(numout)
+
+  
       CALL oasis_def_partition ( id_part, paral, nerror, jpiglo*jpjglo )
+       WRITE(numout,*) "RSRH called def partition" ; flush(numout)
       !
       ! ... Announce send variables. 
@@ -247 +252 @@
 #endif
                   IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out
+       WRITE(numout,*) "RSRH calling def var send", zclname , ji; flush(numout)
                   CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   &
                      &                OASIS_Out          , ishape , OASIS_REAL, nerror )
+       WRITE(numout,*) "RSRH called def var", zclname , ji, nerror; flush(numout)
                   IF ( nerror /= OASIS_Ok ) THEN
                      WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname)
@@ -292 +299 @@
 #endif
                   IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In
+       WRITE(numout,*) "RSRH calling def var recv", zclname , ji; flush(numout)
                   CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   &
                      &                OASIS_In           , ishape , OASIS_REAL, nerror )
+       WRITE(numout,*) "RSRH called def var recv", zclname , ji, nerror; flush(numout)
                   IF ( nerror /= OASIS_Ok ) THEN
                      WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname)
@@ -309 +318 @@
       ! End of definition phase
       !------------------------------------------------------------------
+       WRITE(numout,*) "RSRH calling endef "; flush(numout)
       
       CALL oasis_enddef(nerror)
+       WRITE(numout,*) "RSRH called endef "; flush(numout)
       IF( nerror /= OASIS_Ok )   CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in oasis_enddef')
       !