Changeset 15478 for NEMO/branches/UKMO
- Timestamp:
- 2021-11-08T12:00:43+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar_no_neg/src/OCE/SBC/sbccpl.F90
r14735 r15478 2131 2131 CASE ('coupled') 2132 2132 IF (ln_scale_ice_flux) THEN 2133 WHERE( a_i(:,:,:) > 0.0_wp ) zqtr_ice_top(:,:,:) = frcv(jpr_qtr)%z3(:,:,:) * a_i_last_couple(:,:,:) / a_i(:,:,:)2133 WHERE( a_i(:,:,:) > 0.0_wp ) zqtr_ice_top(:,:,:) = MAX(0, frcv(jpr_qtr)%z3(:,:,:)) * a_i_last_couple(:,:,:) / a_i(:,:,:) 2134 2134 WHERE( a_i(:,:,:) <= 0.0_wp ) zqtr_ice_top(:,:,:) = 0.0_wp 2135 2135 ELSE 2136 zqtr_ice_top(:,:,:) = frcv(jpr_qtr)%z3(:,:,:)2136 zqtr_ice_top(:,:,:) = MAX(0, frcv(jpr_qtr)%z3(:,:,:)) 2137 2137 ENDIF 2138 2138
Note: See TracChangeset
for help on using the changeset viewer.