Ignore:
Timestamp:
2018-11-21T15:19:04+01:00 (2 years ago)
Author:
mathiot
Message:

fix #1685 (replace 5.e-4_wp by avt_c in dmp routine as it is computed in zdfmxl + apply test on avt instead on avs in trcdmp)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/TRA/tradmp.F90

    r10068 r10351  
    123123            DO jj = 2, jpjm1 
    124124               DO ji = fs_2, fs_jpim1   ! vector opt. 
    125                   IF( avt(ji,jj,jk) <= 5.e-4_wp ) THEN 
     125                  IF( avt(ji,jj,jk) <= avt_c ) THEN 
    126126                     tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem)   & 
    127127                        &                 + resto(ji,jj,jk) * ( zts_dta(ji,jj,jk,jp_tem) - tsb(ji,jj,jk,jp_tem) ) 
Note: See TracChangeset for help on using the changeset viewer.