Changeset 8437


Ignore:
Timestamp:
2017-08-14T16:33:48+02:00 (3 years ago)
Author:
dancopsey
Message:

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

File:
1 edited

Legend:

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

    r8433 r8437  
    201201       
    202202      CALL oasis_def_partition ( id_part, paral, nerror ) 
    203        
     203      ! 
    204204      ! Another partition is needed for river runoff 
    205205       
     
    210210      paral(5) = 0 
    211211       
    212       CALL oasis_def_partition ( id_part_r, paral, nerror ) 
    213        
    214       ! 
     212      CALL oasis_def_partition ( id_part_r, paral, nerror, 10 ) 
     213       
    215214      ! ... Announce send variables.  
    216215      ! 
     
    448447      ! Get the river runoff sent by the atmosphere 
    449448      CALL oasis_get ( runoff_id, kstep, runoff, kinfo ) 
    450       WRITE(numout,*)' River runoff = ', runoff 
    451       WRITE(numout,*)' kinfo = ', kinfo 
     449      IF ( narea == 1 ) THEN 
     450         WRITE(numout,*)' kstep = ', kstep 
     451         WRITE(numout,*)' River runoff = ', runoff 
     452         WRITE(numout,*)' kinfo = ', kinfo 
     453         WRITE(numout,*)'-------' 
     454      ENDIF 
    452455    
    453456    
Note: See TracChangeset for help on using the changeset viewer.