Changeset 5146 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC
- Timestamp:
- 2015-03-11T18:30:22+01:00 (9 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5123 r5146 1199 1199 ENDDO 1200 1200 ELSE 1201 qns_tot(:,: ) = qns_tot(:,:) + zicefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) 1201 1202 DO jl=1,jpl 1202 qns_tot(:,: ) = qns_tot(:,:) + zicefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1)1203 1203 qns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,1) 1204 1204 ENDDO … … 1258 1258 ENDDO 1259 1259 ELSE 1260 qsr_tot(:,: ) = qsr_tot(:,:) + zicefr(:,:) * frcv(jpr_qsrice)%z3(:,:,1) 1260 1261 DO jl=1,jpl 1261 qsr_tot(:,: ) = qsr_tot(:,:) + zicefr(:,:) * frcv(jpr_qsrice)%z3(:,:,1)1262 1262 qsr_ice(:,:,jl) = frcv(jpr_qsrice)%z3(:,:,1) 1263 1263 ENDDO -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r5128 r5146 602 602 hfx_spr(:,:) = 0._wp ; hfx_dif(:,:) = 0._wp 603 603 hfx_err(:,:) = 0._wp ; hfx_err_rem(:,:) = 0._wp 604 hfx_err_dif(:,:) = 0._wp 604 605 605 606 afx_tot(:,:) = 0._wp ;
Note: See TracChangeset
for help on using the changeset viewer.