Changeset 677 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2007-06-01T19:43:49+02:00 (17 years ago)

Author:

ctlod

Message:

nemo_v2_bugfix_047 : CT : initialization of avmu, avmv arrays when using key_zdfcst cpp key

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/step.F90

@@ -255 +255 @@
       IF( lk_zdfkpp )   CALL zdf_kpp( kstp )                       ! KPP closure scheme for Kz
 
-      IF( lk_zdfcst )   avt (:,:,:) = avt0 * tmask(:,:,:)          ! Constant Kz (reset avt to the background value)
+      IF( lk_zdfcst )   THEN                                       ! Constant Kz (reset avt, avm[uv] to the background value)
+         avt (:,:,:) = avt0 * tmask(:,:,:)
+         avmu(:,:,:) = avm0 * umask(:,:,:)
+         avmv(:,:,:) = avm0 * vmask(:,:,:)
+      ENDIF
 
       IF( cp_cfg == "orca" ) THEN                           ! ORCA: Reduce vertical mixing in some specific areas