Changeset 8439

Timestamp:

2017-08-15T12:22:55+02:00 (7 years ago)

Author:

dancopsey

Message:

Add n_rivers as a parameter.

File:

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

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

@@ -69 +69 @@
    INTEGER, PUBLIC, PARAMETER ::   nmaxcat=5    ! Maximum number of coupling fields
    INTEGER, PUBLIC, PARAMETER ::   nmaxcpl=5    ! Maximum number of coupling fields
+   INTEGER, PUBLIC, PARAMETER ::   n_rivers=10  ! Total number of rivers whose runoff is passed from the atmosphere
    
    INTEGER :: runoff_id
@@ -206 +207 @@
       paral(1) = 0                                              ! serial partitioning
       paral(2) = 0   
-      paral(3) = 10                                             ! size of array to couple
+      paral(3) = n_rivers                                       ! size of array to couple
       paral(4) = 0
       paral(5) = 0
       
-      CALL oasis_def_partition ( id_part_r, paral, nerror, 10 )
+      CALL oasis_def_partition ( id_part_r, paral, nerror, n_rivers )
       
       ! ... Announce send variables. 
@@ -305 +306 @@
       ! Define river runoff
       CALL oasis_def_var (runoff_id, 'runoffo', id_part_r   , (/ 1, 0 /),   &
-                     &                OASIS_In           , (/ 1, 10 /) , OASIS_REAL, nerror )
+                     &                OASIS_In           , (/ 1, n_rivers /) , OASIS_REAL, nerror )
       IF ( nerror /= OASIS_Ok ) THEN
           WRITE(numout,*) 'Failed to define transient runoffo'
@@ -443 +444 @@
       
       INTEGER  ::   kinfo                  ! OASIS3 info argument    
-      REAL(wp) ::   runoff(10)             ! River runoff. One value per river.
+      REAL(wp) ::   runoff(n_rivers)             ! River runoff. One value per river.
    
       ! Get the river runoff sent by the atmosphere