Changeset 1181 for trunk/NEMO/OFF_SRC/dtadyn.F90

Timestamp:

2008-09-11T18:47:38+02:00 (16 years ago)

Author:

cetlod

Message:

update modules to take into account new trends organization, see ticket:248

File:

• trunk/NEMO/OFF_SRC/dtadyn.F90 (modified) (4 diffs)

trunk/NEMO/OFF_SRC/dtadyn.F90

@@ -65 +65 @@
       vdta   ,   & ! meridional velocity at two consecutive times
       wdta   ,   & ! vertical velocity at two consecutive times
-#if defined key_trc_diatrd
       hdivdta,   & ! horizontal divergence
-#endif
       avtdta       ! vertical diffusivity coefficient
 
@@ -516 +514 @@
                     vn(:,:,:)=vdta(:,:,:,2)
                     wn(:,:,:)=wdta(:,:,:,2)
-#if defined key_trc_diatrd
                     hdivn(:,:,:)=hdivdta(:,:,:,2)
-#endif
 #if defined key_trc_zdfddm
                     avs(:,:,:)=avtdta(:,:,:,2)
@@ -579 +575 @@
                     vn(:,:,:) = zweighm1 * vdta(:,:,:,1) + zweigh * vdta(:,:,:,2)
                     wn(:,:,:) = zweighm1 * wdta(:,:,:,1) + zweigh * wdta(:,:,:,2)
-#if defined key_trc_diatrd
                     hdivn(:,:,:) = zweighm1 * hdivdta(:,:,:,1) + zweigh * hdivdta(:,:,:,2)
-#endif
 #if defined key_zdfddm
                     avs(:,:,:)= zweighm1 * avtdta(:,:,:,1) + zweigh * avtdta(:,:,:,2)
@@ -862 +856 @@
 
       wdta(:,:,:,2) = zw(:,:,:) * tmask(:,:,:)
-#if defined key_trc_diatrd
       hdivdta(:,:,:,2) = zhdiv(:,:,:) * tmask(:,:,:)
-#endif
 
       tdta(:,:,:,2)   = zt(:,:,:)   * tmask(:,:,:)