Changeset 11404 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

Timestamp:

2019-08-06T11:15:02+02:00 (5 years ago)

Author:

mattmartin

Message:

Included control of the STOPACK options so that it can be switched on/off with the main ln_stopack logical.

File:

• branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -184 +184 @@
          !
          ! 
-         IF( nn_spp_qsi0 > 0 ) THEN
+         IF( ln_stopack .AND. ( nn_spp_qsi0 > 0 ) ) THEN
              xsi0r = rn_si0
              CALL spp_gen(kt, xsi0r, nn_spp_qsi0, rn_qsi0_sd, jk_spp_qsi0 )
@@ -317 +317 @@
             !                                             ! ------------------------- !
             !
-            IF( lk_vvl .OR. nn_spp_qsi0 > 0 ) THEN        !* variable volume
+            IF( lk_vvl .OR. ( ln_stopack .AND. ( nn_spp_qsi0 > 0 ) ) ) THEN        !* variable volume
 
                zz0   =        rn_abs   * r1_rau0_rcp