Ignore:
Timestamp:
2018-12-18T16:57:34+01:00 (22 months ago)
Author:
clem
Message:

make all the sette tests successful

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r9947_SI3_advection/src/ICE/icedyn_rdgrft.F90

    r10399 r10411  
    192192            ! divergence given by the advection scheme 
    193193            !   (which may not be equal to divu as computed from the velocity field) 
    194             IF( ln_adv_Pra ) THEN 
     194            IF    ( ln_adv_Pra ) THEN 
    195195               zdivu_adv(ji) = ( 1._wp - ato_i_1d(ji) - SUM( a_i_2d(ji,:) ) ) * r1_rdtice 
    196196            ELSEIF( ln_adv_UMx ) THEN 
Note: See TracChangeset for help on using the changeset viewer.