- Timestamp:
- 2017-10-05T16:44:46+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_pra.F90
r8569 r8597 120 120 z0ei(:,:,jk,jl) = pe_i(:,:,jk,jl) * e1e2t(:,:) ! Ice heat content 121 121 END DO 122 IF ( nn_pnd_scheme > 0) THEN122 IF ( ln_pnd_H12 ) THEN 123 123 z0ap(:,:,jl) = pa_ip(:,:,jl) * e1e2t(:,:) ! Melt pond fraction 124 124 z0vp(:,:,jl) = pv_ip(:,:,jl) * e1e2t(:,:) ! Melt pond volume … … 167 167 & syye(:,:,jk,jl), sxye(:,:,jk,jl) ) 168 168 END DO 169 IF ( nn_pnd_scheme > 0) THEN169 IF ( ln_pnd_H12 ) THEN 170 170 CALL adv_x( zusnit, pu_ice, 1._wp, zarea, z0ap (:,:,jl), sxap (:,:,jl), & !--- melt pond fraction -- 171 171 & sxxap (:,:,jl), syap (:,:,jl), syyap (:,:,jl), sxyap (:,:,jl) ) … … 220 220 & syye(:,:,jk,jl), sxye(:,:,jk,jl) ) 221 221 END DO 222 IF ( nn_pnd_scheme > 0) THEN222 IF ( ln_pnd_H12 ) THEN 223 223 CALL adv_y( zusnit, pv_ice, 1._wp, zarea, z0ap (:,:,jl), sxap (:,:,jl), & !--- melt pond fraction --- 224 224 & sxxap (:,:,jl), syap (:,:,jl), syyap (:,:,jl), sxyap (:,:,jl) ) … … 249 249 END DO 250 250 ! MV MP 2016 251 IF ( nn_pnd_scheme > 0) THEN251 IF ( ln_pnd_H12 ) THEN 252 252 pa_ip (:,:,jl) = z0ap (:,:,jl) * r1_e1e2t(:,:) 253 253 pv_ip (:,:,jl) = z0vp (:,:,jl) * r1_e1e2t(:,:) … … 755 755 sxyage(:,:,jl)= z2d(:,:) 756 756 END DO 757 IF ( nn_pnd_scheme > 0) THEN757 IF ( ln_pnd_H12 ) THEN 758 758 DO jl = 1, jpl 759 759 WRITE(zchar,'(I2.2)') jl … … 833 833 syyc0 (:,:,:) = 0._wp ; syye (:,:,:,:) = 0._wp ; syysal (:,:,:) = 0._wp ; syyage (:,:,:) = 0._wp 834 834 sxyc0 (:,:,:) = 0._wp ; sxye (:,:,:,:) = 0._wp ; sxysal (:,:,:) = 0._wp ; sxyage (:,:,:) = 0._wp 835 IF ( nn_pnd_scheme > 0) THEN835 IF ( ln_pnd_H12 ) THEN 836 836 sxap (:,:,:) = 0._wp ; sxvp (:,:,:) = 0._wp 837 837 syap (:,:,:) = 0._wp ; syvp (:,:,:) = 0._wp … … 854 854 syyc0 (:,:,:) = 0._wp ; syye (:,:,:,:) = 0._wp ; syysal (:,:,:) = 0._wp ; syyage (:,:,:) = 0._wp 855 855 sxyc0 (:,:,:) = 0._wp ; sxye (:,:,:,:) = 0._wp ; sxysal (:,:,:) = 0._wp ; sxyage (:,:,:) = 0._wp 856 IF ( nn_pnd_scheme > 0) THEN856 IF ( ln_pnd_H12 ) THEN 857 857 sxap (:,:,:) = 0._wp ; sxvp (:,:,:) = 0._wp 858 858 syap (:,:,:) = 0._wp ; syvp (:,:,:) = 0._wp … … 989 989 END DO 990 990 END DO 991 IF ( nn_pnd_scheme > 0) THEN991 IF ( ln_pnd_H12 ) THEN 992 992 DO jl = 1, jpl 993 993 WRITE(zchar,'(I2.2)') jl
Note: See TracChangeset
for help on using the changeset viewer.