Changeset 11384 for branches/UKMO/dev_r5518_STOPACK/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2019-07-31T18:05:50+02:00 (5 years ago)

Author:

mattmartin

Message:

Included Andrea Storto's STOPACK code into NEMO3.6 branch.

File:

• branches/UKMO/dev_r5518_STOPACK/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_STOPACK/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -83 +83 @@
    USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 
    USE sbc_oce, ONLY: lk_oasis
+   USE stopack
    USE stopar
    USE stopts
@@ -453 +454 @@
                             CALL dia_hsb_init   ! heat content, salt content and volume budgets
                             CALL     trd_init   ! Mixed-layer/Vorticity/Integral constraints trends
+                            CALL stopack_init   ! STOPACK scheme
       IF( lk_diaobs     ) THEN                  ! Observation & model comparison
                             CALL dia_obs_init            ! Initialize observational data