- Timestamp:
- 2015-02-09T14:39:07+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90
r5067 r5070 517 517 518 518 DO ji = kideb , kiut 519 IF ( ht_s_1d(ji) .gt.0.0 ) THEN519 IF ( ht_s_1d(ji) > 0.0 ) THEN 520 520 ! 521 521 !------------------------------------------------------------------------------| … … 541 541 ENDIF 542 542 543 IF ( t_su_1d(ji) .LT.rtt ) THEN543 IF ( t_su_1d(ji) < rtt ) THEN 544 544 545 545 !------------------------------------------------------------------------------| … … 587 587 !------------------------------------------------------------------------------| 588 588 ! 589 IF (t_su_1d(ji) .LT.rtt) THEN589 IF (t_su_1d(ji) < rtt) THEN 590 590 ! 591 591 !------------------------------------------------------------------------------| … … 705 705 DO ji = kideb , kiut 706 706 ! snow temperatures 707 IF (ht_s_1d(ji) .GT.0._wp) &707 IF (ht_s_1d(ji) > 0._wp) & 708 708 t_s_1d(ji,nlay_s) = (zindtbis(ji,nlay_s+1) - ztrid(ji,nlay_s+1,3) & 709 709 * t_i_1d(ji,1))/zdiagbis(ji,nlay_s+1) &
Note: See TracChangeset
for help on using the changeset viewer.