Changeset 10425 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsink.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsink.F90
r10416 r10425 127 127 ! Total carbon export per year 128 128 IF( iom_use( "tcexp" ) .OR. ( ln_check_mass .AND. kt == nitend .AND. knt == nrdttrc ) ) & 129 & t_oce_co2_exp = glob_sum( ( sinking(:,:,ik100) + sinking2(:,:,ik100) ) * e1e2t(:,:) * tmask(:,:,1) )129 & t_oce_co2_exp = glob_sum( 'p4zsink', ( sinking(:,:,ik100) + sinking2(:,:,ik100) ) * e1e2t(:,:) * tmask(:,:,1) ) 130 130 ! 131 131 IF( lk_iomput ) THEN … … 220 220 ! 221 221 p4z_sink_alloc = MAXVAL( ierr ) 222 IF( p4z_sink_alloc /= 0 ) CALL ctl_ warn('p4z_sink_alloc : failed to allocate arrays.')222 IF( p4z_sink_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_sink_alloc : failed to allocate arrays.' ) 223 223 ! 224 224 END FUNCTION p4z_sink_alloc
Note: See TracChangeset
for help on using the changeset viewer.