Changeset 9991 for branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90

Timestamp:

2018-07-24T14:58:18+02:00 (6 years ago)

Author:

frrh

Message:

Fixes to allow MEDUSA to compile with C1D without
the need for multiple (apparently) unrelated CPP keys
merely to satisfy spurious code interdependencies.

File:

• branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90

@@ -195 +195 @@
                     CALL ken_p2k( kt , zke )
                       CALL iom_put( "ketrd_convP2K", zke )     ! conversion -rau*g*w
+# if defined key_ldfslp || key_esopa
         CASE( jpdyn_eivke )
             ! CMIP6 diagnostic tknebto = tendency of KE from
@@ -216 +217 @@
             CALL iom_put("ketrd_eiv", zke2d)
             CALL wrk_dealloc( jpi, jpj, zke2d )
+#endif
          !
       END SELECT