New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3817 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_3/limupdate.F90 – NEMO

Ignore:
Timestamp:
2013-02-20T16:39:33+01:00 (11 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.