Changeset 899 for trunk/NEMO/OPA_SRC/ZDF/zdfkpp.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/zdfkpp.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

@@ -130 +130 @@
       evmean  
  
-#if defined key_cfg_1d
+#if defined key_c1d
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &
       rig                   ,  &  ! gradient Richardson number
@@ -352 +352 @@
                   zsh2   = 0.5 * 0.5 * ( zdku2 + zdkv2 ) * ze3sqr
                   zri    = MAX( rn2(ji,jj,jk), 0. ) / ( zsh2 + epsln ) 
-#if defined key_cfg_1d
+#if defined key_c1d
                   ! save the gradient richardson number
                   rig(ji,jj,jk) = zri * tmask(ji,jj,jk)
@@ -515 +515 @@
             zucube     = zustar(ji,jj) * zustar(ji,jj) * zustar(ji,jj) 
             zmoa(ji)   = zucube / ( vonk * ( zbuofdep + epsln ) )   
-#if defined key_cfg_1d
+#if defined key_c1d
             ! store the surface buoyancy forcing
             zstabl        = 0.5 + SIGN( 0.5, zbuofdep )
@@ -744 +744 @@
                ! Save the Richardson number 
                zria  (ji)   = zrib  
-#if defined key_cfg_1d
+#if defined key_c1d
                ! store buoyancy length scale
                buof(ji,jj,jk) = zbuofdep * tmask(ji,jj,jk)