Changeset 1756 for trunk/NEMO/OPA_SRC/ZDF

Timestamp:

2009-11-25T15:15:20+01:00 (15 years ago)

Author:

smasson

Message:

implement AR5 diagnostics, see ticket:610

File:

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

trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -180 +180 @@
       !!
       INTEGER  ::   ji, jj, jk                      ! dummy loop arguments
-      INTEGER  ::   ikbu, ikbv, ikbum1, ikbvm1      ! temporary scalar
-      INTEGER  ::   ikbt, ikbumm1, ikbvmm1          ! temporary scalar
+!!$      INTEGER  ::   ikbu, ikbv, ikbum1, ikbvm1      ! temporary scalar
+!!$      INTEGER  ::   ikbt, ikbumm1, ikbvmm1          ! temporary scalar
       REAL(wp) ::   zrhoa  = 1.22                   ! Air density kg/m3
       REAL(wp) ::   zcdrag = 1.5e-3                 ! drag coefficient
@@ -190 +190 @@
       REAL(wp) ::   zus   , zwlc  , zind            !    -         -
       REAL(wp) ::   zzd_up, zzd_lw                  !    -         -
-      REAL(wp) ::   zebot                           !    -         -
+!!$      REAL(wp) ::   zebot                           !    -         -
       INTEGER , DIMENSION(jpi,jpj)     ::   imlc    ! 2D workspace
       REAL(wp), DIMENSION(jpi,jpj)     ::   zhlc    !  -      -