Changeset 14940
- Timestamp:
- 2021-06-02T12:20:17+02:00 (3 years ago)
- 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 149 149 CALL CTL_STOP('STOP', 'No iceberg runoff data read in for Greenland. Check input file or set rn_greenland_calving_fraction=0.0') 150 150 ENDIF 151 tot_flux = MAXVAL(fwficb(:,:)*tmask_i(:,:))152 IF( lk_mpp ) CALL mpp_max( 'icbclv', tot_flux )153 WRITE(numout,*) 'Max fwficb: ',tot_flux154 151 155 152 tot_flux = SUM(fwficb(:,:)*e1e2t(:,:)*tmask_i(:,:)*antarctica_icesheet_mask(:,:)) … … 164 161 CALL CTL_STOP('STOP', 'No iceberg runoff data read in for Greenland. Check input file or set rn_antarctica_calving_fraction=0.0') 165 162 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_change169 163 ENDIF 170 164 CALL iom_put( 'iceberg_cea' , fwficb(:,:) ) ! output iceberg flux
Note: See TracChangeset
for help on using the changeset viewer.