revert controls on pisces iom field in trcstp.F90 as in the main

src/TOP/trcstp.F90

@@ -61,7 +61,7 @@ CONTAINS
       !
       INTEGER ::   jk, jn   ! dummy loop indices
       REAL(wp)::   ztrai    ! local scalar
-      LOGICAL ::   ll_trcstat, ll_trcpis ! local logical
+      LOGICAL ::   ll_trcstat ! local logical
       CHARACTER (len=25) ::   charout   !
       !!-------------------------------------------------------------------
       !
@@ -82,15 +82,7 @@ CONTAINS
          DO jk = 1, jpk
             cvol(:,:,jk) = e1e2t(:,:) * e3t(:,:,jk,Kmm) * tmask(:,:,jk)
          END DO
-         IF( ln_pisces )  THEN
-            IF ( iom_use( "pno3tot" ) .OR. iom_use( "ppo4tot" ) .OR. iom_use( "psiltot" ) &
-               &  .OR. iom_use( "palktot" ) .OR. iom_use( "pfertot" ) ) &
-               & ll_trcpis = .TRUE.
-         ELSE
-            ll_trcpis = .FALSE.
-         ENDIF
-         IF ( ll_trcstat .OR. kt == nitrst .OR. ( ln_check_mass .AND. kt == nitend ) .OR. ll_trcpis ) &
-            &     areatot = glob_sum( 'trcstp', cvol(:,:,:) )
+         IF ( ll_trcstat .OR. kt == nitrst )  areatot = glob_sum( 'trcstp', cvol(:,:,:) )
       ENDIF
       !
       IF( l_trcdm2dc )   CALL trc_mean_qsr( kt )