Changeset 15294 for branches/UKMO/dev_r5518_GO6_stophys/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

Timestamp:

2021-09-27T18:40:59+02:00 (3 years ago)

Author:

mattmartin

Message:

First version implementing stopack code from the standard GO6 FOAM branch.

File:

• branches/UKMO/dev_r5518_GO6_stophys/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_stophys/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

@@ -32 +32 @@
    USE iom            ! I/O manager library
    USE lib_mpp        ! MPP library
+   USE stopack
    USE wrk_nemo       ! Memory allocation
 
@@ -271 +272 @@
       !                   ! 3D output of tracers trends using IOM interface
       IF( ln_tra_trd )   CALL trd_tra_iom ( ptrdx, ptrdy, ktrd, kt )
-
-      !                   ! Integral Constraints Properties for tracers trends                                       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+      IF( ln_tra_trd .AND. ln_stopack .AND. ln_sppt_tra )  &
+         & CALL tra_sppt_collect( ptrdx, ptrdy, ktrd, kt )
+
+      !  Integral Constraints Properties for tracers trends                                       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       IF( ln_glo_trd )   CALL trd_glo( ptrdx, ptrdy, ktrd, 'TRA', kt )