Changeset 8820 for branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

Timestamp:

2017-11-27T14:42:22+01:00 (6 years ago)

Author:

dancopsey

Message:

Output information for every processor.

File:

• branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -448 +448 @@
       ! Get the river runoff sent by the atmosphere
       CALL oasis_get ( runoff_id, kstep, runoff, kinfo )
-      IF ( narea == 1 ) THEN
+      ! IF ( narea == 1 ) THEN
+         WRITE(numout,*)' narea = ', narea
          WRITE(numout,*)' kstep = ', kstep
          WRITE(numout,*)' River runoff = ', runoff
          WRITE(numout,*)' kinfo = ', kinfo
          WRITE(numout,*)'-------'
-      ENDIF
+      ! ENDIF