From 68f4816250a1688e73ef5aa5be72448c43fde77f Mon Sep 17 00:00:00 2001
From: Tomas Lovato <tomas.lovato@cmcc.it>
Date: Wed, 1 Feb 2023 12:52:49 +0100
Subject: [PATCH] revert controls on pisces iom field in trcstp.F90 as in the
main
---
src/TOP/trcstp.F90 | 12 ++----------
1 file changed, 2 insertions(+), 10 deletions(-)
diff --git a/src/TOP/trcstp.F90 b/src/TOP/trcstp.F90
index 748b8285..5e98d3c3 100644
--- a/src/TOP/trcstp.F90
+++ b/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 )
--
GitLab