Changeset 15483

Timestamp:

2021-11-09T10:52:23+01:00 (2 years ago)

Author:

timgraham

Message:

Fix type error

File:

• NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar_no_neg/src/OCE/SBC/sbccpl.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar_no_neg/src/OCE/SBC/sbccpl.F90

@@ -2131 +2131 @@
          CASE ('coupled')
             IF (ln_scale_ice_flux) THEN
-               WHERE( a_i(:,:,:) > 0.0_wp ) zqtr_ice_top(:,:,:) = MAX(0, frcv(jpr_qtr)%z3(:,:,:)) * a_i_last_couple(:,:,:) / a_i(:,:,:)
+               WHERE( a_i(:,:,:) > 0.0_wp ) zqtr_ice_top(:,:,:) = MAX(0._wp, frcv(jpr_qtr)%z3(:,:,:)) * a_i_last_couple(:,:,:) / a_i(:,:,:)
                WHERE( a_i(:,:,:) <= 0.0_wp ) zqtr_ice_top(:,:,:) = 0.0_wp
             ELSE
-               zqtr_ice_top(:,:,:) = MAX(0, frcv(jpr_qtr)%z3(:,:,:))
+               zqtr_ice_top(:,:,:) = MAX(0._wp, frcv(jpr_qtr)%z3(:,:,:))
             ENDIF