Changeset 8439


Ignore:
Timestamp:
2017-08-15T12:22:55+02:00 (3 years ago)
Author:
dancopsey
Message:

Add n_rivers as a parameter.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r8437 r8439  
    6969   INTEGER, PUBLIC, PARAMETER ::   nmaxcat=5    ! Maximum number of coupling fields 
    7070   INTEGER, PUBLIC, PARAMETER ::   nmaxcpl=5    ! Maximum number of coupling fields 
     71   INTEGER, PUBLIC, PARAMETER ::   n_rivers=10  ! Total number of rivers whose runoff is passed from the atmosphere 
    7172    
    7273   INTEGER :: runoff_id 
     
    206207      paral(1) = 0                                              ! serial partitioning 
    207208      paral(2) = 0    
    208       paral(3) = 10                                             ! size of array to couple 
     209      paral(3) = n_rivers                                       ! size of array to couple 
    209210      paral(4) = 0 
    210211      paral(5) = 0 
    211212       
    212       CALL oasis_def_partition ( id_part_r, paral, nerror, 10 ) 
     213      CALL oasis_def_partition ( id_part_r, paral, nerror, n_rivers ) 
    213214       
    214215      ! ... Announce send variables.  
     
    305306      ! Define river runoff 
    306307      CALL oasis_def_var (runoff_id, 'runoffo', id_part_r   , (/ 1, 0 /),   & 
    307                      &                OASIS_In           , (/ 1, 10 /) , OASIS_REAL, nerror ) 
     308                     &                OASIS_In           , (/ 1, n_rivers /) , OASIS_REAL, nerror ) 
    308309      IF ( nerror /= OASIS_Ok ) THEN 
    309310          WRITE(numout,*) 'Failed to define transient runoffo' 
     
    443444       
    444445      INTEGER  ::   kinfo                  ! OASIS3 info argument     
    445       REAL(wp) ::   runoff(10)             ! River runoff. One value per river. 
     446      REAL(wp) ::   runoff(n_rivers)             ! River runoff. One value per river. 
    446447    
    447448      ! Get the river runoff sent by the atmosphere 
Note: See TracChangeset for help on using the changeset viewer.