Changeset 3817 for branches/2012/dev_MERGE_2012/NEMOGCM
- Timestamp:
- 2013-02-20T16:39:33+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_3/limupdate.F90
r3625 r3817 80 80 INTEGER :: i_ice_switch 81 81 INTEGER :: ind_im, layer ! indices for internal melt 82 REAL(wp) :: zweight, zesum, zhimax, z_da_i , z_dv_i82 REAL(wp) :: zweight, zesum, zhimax, z_da_i 83 83 REAL(wp) :: zindb, zindsn, zindic, zacrith 84 84 REAL(wp) :: zrtt, zindg, zh, zdvres, zviold … … 805 805 zindb = MAX( rzero, SIGN( rone, v_i(ji,jj,jl) ) ) 806 806 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 )808 807 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_i810 808 END DO 811 809
Note: See TracChangeset
for help on using the changeset viewer.