Changeset 13511

Timestamp:

2020-09-24T10:55:10+02:00 (4 years ago)

Author:

smasson

Message:

r4.0-HEAD: avoid unnecessary division by 0 in gls, correspond to [13506]

Location:

NEMO/releases/r4.0/r4.0-HEAD

Files:

• cfgs/SHARED/namelist_ref (modified) (1 diff)
• src/OCE/ZDF/zdfgls.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/cfgs/SHARED/namelist_ref

@@ -281 +281 @@
    sn_snow     = 'ncar_precip.15JUNE2009_fill',   -1.        , 'SNOW'    ,   .false.   , .true. , 'yearly'  , 'weights_core_orca2_bilinear_noc.nc' , ''       , ''
    sn_slp      = 'slp.15JUNE2009_fill'        ,    6.        , 'SLP'     ,   .false.   , .true. , 'yearly'  , 'weights_core_orca2_bilinear_noc.nc' , ''       , ''
-   sn_cc       = 'NOT USED'                   ,   24         , 'CC'      ,   .false.   , .true. , 'yearly'  , 'weights_core_orca2_bilinear_noc.nc' , ''       , ''
-   sn_tdif     = 'taudif_core'                ,   24         , 'taudif'  ,   .false.   , .true. , 'yearly'  , 'weights_core_orca2_bilinear_noc.nc' , ''       , ''
+   sn_cc       = 'NOT USED'                   ,   24.        , 'CC'      ,   .false.   , .true. , 'yearly'  , 'weights_core_orca2_bilinear_noc.nc' , ''       , ''
+   sn_tdif     = 'taudif_core'                ,   24.        , 'taudif'  ,   .false.   , .true. , 'yearly'  , 'weights_core_orca2_bilinear_noc.nc' , ''       , ''
 /
 !-----------------------------------------------------------------------

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfgls.F90

@@ -225 +225 @@
       !
       DO jk = 2, jpkm1              !==  Compute dissipation rate  ==!
-         DO jj = 1, jpjm1
-            DO ji = 1, jpim1
+         DO jj = 2, jpjm1
+            DO ji = 2, jpim1
                eps(ji,jj,jk)  = rc03 * en(ji,jj,jk) * SQRT( en(ji,jj,jk) ) / hmxl_n(ji,jj,jk)
             END DO