Changeset 13322

Timestamp:

2020-07-17T17:21:14+02:00 (4 years ago)

Author:

jwhile

Message:

Updates to how STO deals with 1d case.

Refactor of stopack, as per review

File:

• branches/UKMO/dev_1d_bugfixes_tocommit/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90 (modified) (1 diff)

branches/UKMO/dev_1d_bugfixes_tocommit/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90

@@ -634 +634 @@
    INTEGER :: jklev
 
-#if defined key_traldf_c3d || key_traldf_c3d
+#if defined key_traldf_c3d || key_traldf_c2d
 
    CALL wrk_alloc(jpi,jpj,gauss)