Changeset 15294 for branches/UKMO/dev_r5518_GO6_stophys/NEMOGCM/NEMO/OPA_SRC/TRD/trddyn.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/trddyn.F90 (modified) (2 diffs)

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

@@ -29 +29 @@
    USE lib_mpp        ! MPP library
    USE wrk_nemo       ! Memory allocation
+   USE stopack     
 
    IMPLICIT NONE
@@ -68 +69 @@
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       IF( ln_dyn_trd )   CALL trd_dyn_iom( putrd, pvtrd, ktrd, kt )
+      IF( ln_dyn_trd .AND. ln_stopack .AND. ln_sppt_dyn ) &
+         & CALL dyn_sppt_collect( putrd, pvtrd, ktrd, kt )
          
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<