Changeset 10425 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zprod.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zprod.F90
r10401 r10425 340 340 ! Total primary production per year 341 341 IF( iom_use( "tintpp" ) .OR. ( ln_check_mass .AND. kt == nitend .AND. knt == nrdttrc ) ) & 342 & tpp = glob_sum( ( zprorcan(:,:,:) + zprorcad(:,:,:) ) * cvol(:,:,:) )342 & tpp = glob_sum( 'p4zprod', ( zprorcan(:,:,:) + zprorcad(:,:,:) ) * cvol(:,:,:) ) 343 343 344 344 IF( lk_iomput ) THEN … … 529 529 ALLOCATE( quotan(jpi,jpj,jpk), quotad(jpi,jpj,jpk), STAT = p4z_prod_alloc ) 530 530 ! 531 IF( p4z_prod_alloc /= 0 ) CALL ctl_ warn('p4z_prod_alloc : failed to allocate arrays.')531 IF( p4z_prod_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_prod_alloc : failed to allocate arrays.' ) 532 532 ! 533 533 END FUNCTION p4z_prod_alloc
Note: See TracChangeset
for help on using the changeset viewer.