Changeset 8437 for branches

Timestamp:

2017-08-14T16:33:48+02:00 (7 years ago)

Author:

dancopsey

Message:

Put number of rivers into partition definition. Only output final river outflow on processor 1.

File:

• branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (3 diffs)

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

@@ -201 +201 @@
       
       CALL oasis_def_partition ( id_part, paral, nerror )
-      
+      !
       ! Another partition is needed for river runoff
       
@@ -210 +210 @@
       paral(5) = 0
       
-      CALL oasis_def_partition ( id_part_r, paral, nerror )
-      
-      !
+      CALL oasis_def_partition ( id_part_r, paral, nerror, 10 )
+      
       ! ... Announce send variables. 
       !
@@ -448 +447 @@
       ! Get the river runoff sent by the atmosphere
       CALL oasis_get ( runoff_id, kstep, runoff, kinfo )
-      WRITE(numout,*)' River runoff = ', runoff
-      WRITE(numout,*)' kinfo = ', kinfo
+      IF ( narea == 1 ) THEN
+         WRITE(numout,*)' kstep = ', kstep
+         WRITE(numout,*)' River runoff = ', runoff
+         WRITE(numout,*)' kinfo = ', kinfo
+         WRITE(numout,*)'-------'
+      ENDIF