- Timestamp:
- 2012-12-05T07:23:56+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90
r3294 r3721 313 313 ! surface boundary condition 314 314 IF( lk_vvl ) THEN ; zthick(:,:) = 0._wp ; htc3(:,:) = 0._wp 315 ELSE ; zthick(:,:) = sshn(:,:) ; htc3(:,:) = tsn(:,:, jk,jp_tem) * sshn(:,:) * tmask(:,:,jk)315 ELSE ; zthick(:,:) = sshn(:,:) ; htc3(:,:) = tsn(:,:,1,jp_tem) * sshn(:,:) * tmask(:,:,1) 316 316 ENDIF 317 317 ! integration down to ilevel
Note: See TracChangeset
for help on using the changeset viewer.