Changeset 11440 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

Timestamp:

2019-08-15T16:43:05+02:00 (5 years ago)

Author:

mattmartin

Message:

Update after Dan's review.

File:

• branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90 (modified) (1 diff)

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

@@ -200 +200 @@
       ahu_bbl_1(:,:) = ahu_bbl(:,:)
       IF( ln_stopack .AND. nn_spp_ahubbl > 0 ) THEN
-          CALL spp_gen(1 , ahu_bbl_1, nn_spp_ahubbl, rn_ahubbl_sd, jk_spp_ahubbl )
+          CALL spp_gen(1, ahu_bbl_1, nn_spp_ahubbl, rn_ahubbl_sd, jk_spp_ahubbl )
       ENDIF
       ahv_bbl_1(:,:) = ahv_bbl(:,:)
       IF( ln_stopack .AND. nn_spp_ahvbbl > 0 ) THEN
-          CALL spp_gen(1 , ahv_bbl_1, nn_spp_ahvbbl, rn_ahvbbl_sd, jk_spp_ahvbbl )
+          CALL spp_gen(1, ahv_bbl_1, nn_spp_ahvbbl, rn_ahvbbl_sd, jk_spp_ahvbbl )
       ENDIF
       !