Ignore:
Timestamp:
2018-08-07T12:25:11+02:00 (2 years ago)
Author:
dancopsey
Message:

Remove RSRH print statements.

File:
1 edited

Legend:

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

    r10041 r10043  
    329329                  ! Define 0D (Greenland or Antarctic ice mass) or 1D (river outflow) coupling fields 
    330330                  IF (srcv(ji)%dimensions <= 1) THEN 
    331 WRITE(numout,*) "RSRH 0d or 1d define field ",zclname; flush(numout) 
    332331                    IF (nproc == 0) THEN                     
    333332                        
     
    352351                                   OASIS_In           , (/ 0, 0 /) , OASIS_REAL, nerror ) 
    353352                    END IF 
    354 WRITE(numout,*) "RSRH 0d field done ",zclname,nerror; flush(numout) 
    355353                  ELSE  
    356 WRITE(numout,*) "RSRH 2d define field ",zclname; flush(numout) 
    357354                    ! It's a "normal" 2D (or pseudo 3D) coupling field.   
    358355                    CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 0 /),   & 
    359356                                         OASIS_In           , ishape , OASIS_REAL, nerror ) 
    360 WRITE(numout,*) "RSRH 2d field done ",zclname,nerror; flush(numout) 
    361357                  ENDIF 
    362358 
     
    376372      ! End of definition phase 
    377373      !------------------------------------------------------------------ 
    378  WRITE(numout,*) "RSRH NEMO calling enddef";flush(numout)       
    379374      CALL oasis_enddef(nerror) 
    380 WRITE(numout,*) "RSRH NEMO finished enddef", nerror;flush(numout)       
    381375      IF( nerror /= OASIS_Ok )   CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in oasis_enddef') 
    382376      ! 
Note: See TracChangeset for help on using the changeset viewer.