New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14940 – NEMO

Changeset 14940


Ignore:
Timestamp:
2021-06-02T12:20:17+02:00 (3 years ago)
Author:
timgraham
Message:

Remove debugging write statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_icesheet_and_river_coupling/src/OCE/SBC/sbcrnf.F90

    r14939 r14940  
    149149                    CALL CTL_STOP('STOP', 'No iceberg runoff data read in for Greenland. Check input file or set rn_greenland_calving_fraction=0.0') 
    150150                ENDIF 
    151                 tot_flux =  MAXVAL(fwficb(:,:)*tmask_i(:,:)) 
    152                 IF( lk_mpp ) CALL mpp_max( 'icbclv', tot_flux ) 
    153                 WRITE(numout,*) 'Max fwficb: ',tot_flux 
    154151 
    155152                tot_flux = SUM(fwficb(:,:)*e1e2t(:,:)*tmask_i(:,:)*antarctica_icesheet_mask(:,:)) 
     
    164161                    CALL CTL_STOP('STOP', 'No iceberg runoff data read in for Greenland. Check input file or set rn_antarctica_calving_fraction=0.0') 
    165162                ENDIF 
    166                 tot_flux =  MAXVAL(fwficb(:,:)*tmask_i(:,:)) 
    167                 IF( lk_mpp ) CALL mpp_max( 'icbclv', tot_flux ) 
    168                 WRITE(numout,*) 'Max fwficb: ',tot_flux, antarctica_icesheet_mass_rate_of_change 
    169163            ENDIF 
    170164            CALL iom_put( 'iceberg_cea'  , fwficb(:,:)  )          ! output iceberg flux 
Note: See TracChangeset for help on using the changeset viewer.