Changeset 3817


Ignore:
Timestamp:
2013-02-20T16:39:33+01:00 (8 years ago)
Author:
clevy
Message:

Bugfix on articifial ice source, see ticket:#1054

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_3/limupdate.F90

    r3625 r3817  
    8080      INTEGER ::   i_ice_switch 
    8181      INTEGER ::   ind_im, layer      ! indices for internal melt 
    82       REAL(wp) ::   zweight, zesum, zhimax, z_da_i, z_dv_i 
     82      REAL(wp) ::   zweight, zesum, zhimax, z_da_i 
    8383      REAL(wp) ::   zindb, zindsn, zindic, zacrith 
    8484      REAL(wp) ::   zrtt, zindg, zh, zdvres, zviold 
     
    805805               zindb   =  MAX( rzero, SIGN( rone, v_i(ji,jj,jl) ) )  
    806806               z_da_i = a_i(ji,jj,jl) * z_da_ex / MAX( at_i(ji,jj), epsi06 ) * zindb 
    807                z_dv_i = v_i(ji,jj,jl) * z_da_i  / MAX( at_i(ji,jj), epsi06 ) 
    808807               a_i(ji,jj,jl) = a_i(ji,jj,jl) - z_da_i 
    809                v_i(ji,jj,jl) = v_i(ji,jj,jl) + z_dv_i 
    810808            END DO 
    811809 
Note: See TracChangeset for help on using the changeset viewer.