Changeset 1724
- Timestamp:
- 2009-11-12T11:07:37+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limthd_ent.F90
r1465 r1724 463 463 ! Recover heat content 464 464 !--------------------- 465 DO jk = 1, nlay_ i465 DO jk = 1, nlay_s 466 466 DO ji = kideb, kiut 467 467 q_s_b(ji,jk) = q_s_b(ji,jk) / MAX( zh_s(ji) , zeps )
Note: See TracChangeset
for help on using the changeset viewer.