- Timestamp:
- 2015-02-11T16:15:11+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90
r5064 r5078 102 102 ! new layer thickesses 103 103 DO ji = kideb, kiut 104 zhnew(ji) = SUM( h_i_old(ji,0:nlay_i+1) ) / REAL( nlay_i )104 zhnew(ji) = SUM( h_i_old(ji,0:nlay_i+1) ) * r1_nlay_i 105 105 ENDDO 106 106
Note: See TracChangeset
for help on using the changeset viewer.