Changeset 899 for trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

Timestamp:

2008-04-22T18:15:19+02:00 (16 years ago)

Author:

rblod

Message:

First set of modifications related to 1D update : cometic changes, see ticket #117

File:

• trunk/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -68 +68 @@
       &                  ri_c  = 2._wp / 9._wp      !: critic Richardson number
 
-# if defined key_cfg_1d
+# if defined key_c1d
    !                                                                   ! 1D cfg only
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   e_dis, e_mix,      &  ! dissipation and mixing turbulent lengh scales
@@ -270 +270 @@
       END SELECT
 
-# if defined key_cfg_1d
+# if defined key_c1d
       ! save mixing and dissipation turbulent length scales
       e_dis(:,:,:) = zmxld(:,:,:)
@@ -368 +368 @@
                   ! local Richardson number
                   zri  = MAX( rn2(ji,jj,jk), 0. ) / ( zsh2 + 1.e-20 )
-# if defined key_cfg_1d
+# if defined key_c1d
                   ! save masked local Richardson number in zmxlm array
                   e_ric(ji,jj,jk) = zri * tmask(ji,jj,jk)
@@ -400 +400 @@
       END SELECT
 
-# if defined key_cfg_1d
+# if defined key_c1d
       !  save masked Prandlt number
       e_pdl(:,:,2:jpkm1) = zmxld(:,:,2:jpkm1)