Changeset 8481 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
 Timestamp:
 20170901T12:02:24+02:00 (6 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r7813 r8481 205 205 IF( .NOT. ln_limdO ) qlead(:,:) = 0._wp 206 206 ! In case we bypass growing/melting from top and bottom: we suppose ice is impermeable => ocean is isolated from atmosphere 207 IF( .NOT. ln_limdH ) hfx_in(:,:) = pfrld(:,:) * ( qns_oce(:,:) + qsr_oce(:,:) ) + qemp_oce(:,:) 208 IF( .NOT. ln_limdH ) fhtur (:,:) = 0._wp ; fhld (:,:) = 0._wp 207 IF( .NOT. ln_limdH ) THEN 208 hfx_in(:,:) = pfrld(:,:) * ( qns_oce(:,:) + qsr_oce(:,:) ) + qemp_oce(:,:) 209 fhtur (:,:) = 0._wp 210 fhld (:,:) = 0._wp 211 ENDIF 209 212 210 213 ! 
Note: See TracChangeset
for help on using the changeset viewer.