Changeset 1187


Ignore:
Timestamp:
2008-09-12T11:36:51+02:00 (12 years ago)
Author:
cetlod
Message:

change CPP key key_trc_ldfiso to key_trcldf_iso to compute vertical diffusion trends, see ticket:248

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/TRP/trczdf_iso.F90

    r1175 r1187  
    483483         IF( l_trdtrc ) THEN 
    484484            ! deduce the full vertical diff. trend (except for vertical eiv advection) 
    485 #if defined key_trc_ldfiso 
     485#if defined key_trcldf_iso 
    486486            DO jk = 1, jpkm1 
    487487               ztrtrd(:,:,jk) = ( (tra(:,:,jk,jn) - trb(:,:,jk,jn))/rdttrc(jk) ) - ztrtrd(:,:,jk) + ztrtrd_tmp(:,:,jk) 
Note: See TracChangeset for help on using the changeset viewer.