Changeset 1181


Ignore:
Timestamp:
2008-09-11T18:47:38+02:00 (12 years ago)
Author:
cetlod
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/dtadyn.F90

    r1152 r1181  
    6565      vdta   ,   & ! meridional velocity at two consecutive times 
    6666      wdta   ,   & ! vertical velocity at two consecutive times 
    67 #if defined key_trc_diatrd 
    6867      hdivdta,   & ! horizontal divergence 
    69 #endif 
    7068      avtdta       ! vertical diffusivity coefficient 
    7169 
     
    516514                    vn(:,:,:)=vdta(:,:,:,2) 
    517515                    wn(:,:,:)=wdta(:,:,:,2) 
    518 #if defined key_trc_diatrd 
    519516                    hdivn(:,:,:)=hdivdta(:,:,:,2) 
    520 #endif 
    521517#if defined key_trc_zdfddm 
    522518                    avs(:,:,:)=avtdta(:,:,:,2) 
     
    579575                    vn(:,:,:) = zweighm1 * vdta(:,:,:,1) + zweigh * vdta(:,:,:,2) 
    580576                    wn(:,:,:) = zweighm1 * wdta(:,:,:,1) + zweigh * wdta(:,:,:,2) 
    581 #if defined key_trc_diatrd 
    582577                    hdivn(:,:,:) = zweighm1 * hdivdta(:,:,:,1) + zweigh * hdivdta(:,:,:,2) 
    583 #endif 
    584578#if defined key_zdfddm 
    585579                    avs(:,:,:)= zweighm1 * avtdta(:,:,:,1) + zweigh * avtdta(:,:,:,2) 
     
    862856 
    863857      wdta(:,:,:,2) = zw(:,:,:) * tmask(:,:,:) 
    864 #if defined key_trc_diatrd 
    865858      hdivdta(:,:,:,2) = zhdiv(:,:,:) * tmask(:,:,:) 
    866 #endif 
    867859 
    868860      tdta(:,:,:,2)   = zt(:,:,:)   * tmask(:,:,:) 
Note: See TracChangeset for help on using the changeset viewer.