Changeset 8820


Ignore:
Timestamp:
2017-11-27T14:42:22+01:00 (3 years ago)
Author:
dancopsey
Message:

Output information for every processor.

File:
1 edited

Legend:

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

    r8439 r8820  
    448448      ! Get the river runoff sent by the atmosphere 
    449449      CALL oasis_get ( runoff_id, kstep, runoff, kinfo ) 
    450       IF ( narea == 1 ) THEN 
     450      ! IF ( narea == 1 ) THEN 
     451         WRITE(numout,*)' narea = ', narea 
    451452         WRITE(numout,*)' kstep = ', kstep 
    452453         WRITE(numout,*)' River runoff = ', runoff 
    453454         WRITE(numout,*)' kinfo = ', kinfo 
    454455         WRITE(numout,*)'-------' 
    455       ENDIF 
     456      ! ENDIF 
    456457    
    457458    
Note: See TracChangeset for help on using the changeset viewer.