Changeset 13642 for NEMO/releases/r4.0/r4.0-HEAD/src/ICE/iceupdate.F90

Timestamp:

2020-10-20T00:58:34+02:00 (4 years ago)

Author:

clem

Message:

4.0-HEAD: use the transmitted solar for the ice budget. See #2545

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/ICE/iceupdate.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/ICE/iceupdate.F90

@@ -138 +138 @@
                !                                        solar flux transmitted thru the 1st level of the ocean (i.e. not used by sea-ice)
                qsr(ji,jj) = ( 1._wp - at_i_b(ji,jj) ) * qsr_oce(ji,jj) * ( 1._wp - frq_m(ji,jj) ) &
-                  !                                   + solar flux transmitted thru ice (also not used by sea-ice)
-                  &             + SUM( a_i_b(ji,jj,:) * qtr_ice_bot(ji,jj,:) )
+                  !                                   + solar flux transmitted thru ice and the 1st ocean level (also not used by sea-ice)
+                  &             + SUM( a_i_b(ji,jj,:) * qtr_ice_bot(ji,jj,:) ) * ( 1._wp - frq_m(ji,jj) )
                !
             ELSE                                                       !-- cooling or no ice left