Changeset 1551
- Timestamp:
- 2009-07-29T12:12:02+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diahth.F90
r1486 r1551 161 161 ! deepest layer 162 162 zthick(:,:) = 300. - zthick(:,:) ! remaining thickness to reach 300m 163 htc3(:,:) = htc3(:,:) + tn(:,:,ilevel+1) * MIN( fse3t(:,:,ilevel+1), zthick(:,:) ) * tmask(:,:,ilevel+1) 163 DO jj = 1, jpj 164 DO ji = 1, jpi 165 htc3(ji,jj) = htc3(ji,jj) + tn(ji,jj,ilevel+1) * MIN( fse3t(ji,jj,ilevel+1), zthick(ji,jj) ) * tmask(ji,jj,ilevel+1) 166 END DO 167 END DO 164 168 ! from temperature to heat contain 165 169 zcoef = rau0 * rcp
Note: See TracChangeset
for help on using the changeset viewer.