Changeset 8143 for branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

Timestamp:

2017-06-06T15:55:44+02:00 (7 years ago)

Author:

gm

Message:

#1880 (HPC-09) - step-7: top/bottom drag computed at T-points, zdfbfr.F90 replaced by zdfdrg.F90 + changes in namelist

File:

• branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90 (modified) (2 diffs)

branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

@@ -61 +61 @@
    SUBROUTINE zdf_ric_init
       !!----------------------------------------------------------------------
-      !!                 ***  ROUTINE zdfbfr_init  ***
+      !!                 ***  ROUTINE zdf_ric_init  ***
       !!                    
       !! ** Purpose :   Initialization of the vertical eddy diffusivity and
@@ -90 +90 @@
       IF(lwp) THEN                   ! Control print
          WRITE(numout,*)
-         WRITE(numout,*) 'zdf_ric : Ri depend vertical mixing scheme'
-         WRITE(numout,*) '~~~~~~~'
+         WRITE(numout,*) 'zdf_ric_init : Ri depend vertical mixing scheme'
+         WRITE(numout,*) '~~~~~~~~~~~~'
          WRITE(numout,*) '   Namelist namzdf_ric : set Kz=F(Ri) parameters'
          WRITE(numout,*) '      maximum vertical viscosity        rn_avmri  = ', rn_avmri