- Timestamp:
- 2017-06-28T14:50:59+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90
r8233 r8234 266 266 ! MV MP 2016 267 267 IF ( nn_pnd_scheme > 0 ) THEN 268 z0ap (:,:,jl) = a_ip (:,:,jl) * e1 2t(:,:) ! Melt pond fraction269 z0vp (:,:,jl) = v_ip (:,:,jl) * e1 2t(:,:) ! Melt pond volume268 z0ap (:,:,jl) = a_ip (:,:,jl) * e1e2t(:,:) ! Melt pond fraction 269 z0vp (:,:,jl) = v_ip (:,:,jl) * e1e2t(:,:) ! Melt pond volume 270 270 ENDIF 271 271 ! END MV MP 2016 … … 396 396 ! MV MP 2016 397 397 IF ( nn_pnd_scheme > 0 ) THEN 398 a_ip (:,:,jl) = z0ap (:,:,jl) * r1_e1 2t(:,:)399 v_ip (:,:,jl) = z0vp (:,:,jl) * r1_e1 2t(:,:)398 a_ip (:,:,jl) = z0ap (:,:,jl) * r1_e1e2t(:,:) 399 v_ip (:,:,jl) = z0vp (:,:,jl) * r1_e1e2t(:,:) 400 400 ENDIF 401 401 ! END MV MP 2016
Note: See TracChangeset
for help on using the changeset viewer.