Changeset 15062 for NEMO/trunk/src/OCE/C1D

Timestamp:

2021-06-28T13:19:48+02:00 (3 years ago)

Author:

jchanut

Message:

Suppress time varying scale factors and depths declarations with key_qco and key_linssh. Remove spaces that preclude from correct replacement of some scale factor arrays during preprocessing stage (at least with Apple clang version 11.0.3, this is problem).

Location:

NEMO/trunk/src/OCE/C1D

Files:

• dtauvd.F90 (modified) (2 diffs)
• dyndmp.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/C1D/dtauvd.F90

@@ -33 +33 @@
    !! * Substitutions
 #  include "do_loop_substitute.h90"
+#  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
@@ -169 +170 @@
                   zvp(jk) =  pvd(ji,jj,jpkm1)
                ELSE                                      ! inbetween : vertical interpolation between jkk & jkk+1
-                  DO jkk = 1, jpkm1                      ! when  gdept(jkk) < zl < gdept(jkk+1)
+                  DO jkk = 1, jpkm1                      ! when  dept(jkk) < zl < dept(jkk+1)
                      IF( (zl-gdept_1d(jkk)) * (zl-gdept_1d(jkk+1)) <= 0._wp ) THEN
                         zi = ( zl - gdept_1d(jkk) ) / (gdept_1d(jkk+1)-gdept_1d(jkk))

NEMO/trunk/src/OCE/C1D/dyndmp.F90

@@ -44 +44 @@
    !! * Substitutions
 #  include "do_loop_substitute.h90"
+#  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)