Changeset 7914 for trunk/NEMOGCM

Timestamp:

2017-04-15T10:55:37+02:00 (7 years ago)

Author:

gm

Message:

#1885 : solve a compilation error in zdfric.F90

Location:

trunk/NEMOGCM/NEMO/OPA_SRC

Files:

• DOM/dom_oce.F90 (modified) (1 diff)
• ZDF/zdfric.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

@@ -124 +124 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE        , DIMENSION(:,:) ::   e1e2f , r1_e1e2f                !: associated metrics at f-point
    !
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE        , DIMENSION(:,:) ::   ff_f, ff_t                      !: coriolis factor at f- and t-point         [1/s]
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE        , DIMENSION(:,:) ::   ff_f, ff_t                      !: Coriolis factor at f- & t-points  [1/s]
    !!----------------------------------------------------------------------
    !! vertical coordinate and scale factors

trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

@@ -183 +183 @@
             zrhos          = rhop(ji,jj,1) + zflageos * ( 1. - tmask(ji,jj,1) )
             zustar         = SQRT( taum(ji,jj) / ( zrhos +  rsmall ) )
-            ekm_dep(ji,jj) = rn_ekmfc * zustar / ( ABS( ff(ji,jj) ) + rsmall )
+            ekm_dep(ji,jj) = rn_ekmfc * zustar / ( ABS( ff_t(ji,jj) ) + rsmall )
             ekm_dep(ji,jj) = MAX(ekm_dep(ji,jj),rn_mldmin) ! Minimun allowed
             ekm_dep(ji,jj) = MIN(ekm_dep(ji,jj),rn_mldmax) ! Maximum allowed