Changeset 3816 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO
- Timestamp:
- 2013-02-20T16:30:12+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/LIM_SRC_3/limupdate.F90
r3558 r3816 81 81 INTEGER :: i_ice_switch 82 82 INTEGER :: ind_im, layer ! indices for internal melt 83 REAL(wp) :: zweight, zesum, zhimax, z_da_i , z_dv_i83 REAL(wp) :: zweight, zesum, zhimax, z_da_i 84 84 REAL(wp) :: zindb, zindsn, zindic, zacrith 85 85 REAL(wp) :: zrtt, zindg, zh, zdvres, zviold … … 823 823 zindb = MAX( rzero, SIGN( rone, v_i(ji,jj,jl) ) ) 824 824 z_da_i = a_i(ji,jj,jl) * z_da_ex / MAX( at_i(ji,jj), epsi06 ) * zindb 825 z_dv_i = v_i(ji,jj,jl) * z_da_i / MAX( at_i(ji,jj), epsi06 )826 825 a_i(ji,jj,jl) = a_i(ji,jj,jl) - z_da_i 827 v_i(ji,jj,jl) = v_i(ji,jj,jl) + z_dv_i828 826 END DO 829 827
Note: See TracChangeset
for help on using the changeset viewer.