Changeset 5146 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2015-03-11T18:30:22+01:00 (9 years ago)
- File:
-
- 1 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
Note: See TracChangeset
for help on using the changeset viewer.