- Timestamp:
- 2017-12-12T00:32:40+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_pra.F90
r8882 r8984 251 251 pe_i(:,:,jk,jl) = z0ei(:,:,jk,jl) * r1_e1e2t(:,:) 252 252 END DO 253 ! MV MP 2016254 253 IF ( ln_pnd_H12 ) THEN 255 pa_ip (:,:,jl) 256 pv_ip (:,:,jl) 254 pa_ip (:,:,jl) = z0ap (:,:,jl) * r1_e1e2t(:,:) 255 pv_ip (:,:,jl) = z0vp (:,:,jl) * r1_e1e2t(:,:) 257 256 ENDIF 258 ! END MV MP 2016259 257 END DO 260 258 !
Note: See TracChangeset
for help on using the changeset viewer.