Changeset 25999

Timestamp:

02/17/21 18:34:41 (4 years ago)

Author:

schlegel

Message:

CHG: pass in direct and diffuse SW if aIdx is 1

File:

• issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp

@@ -1126 +1126 @@
                 // calculate surface shortwave radiation fluxes [W m-2]
                 if (aIdx == 1){
-                        swf[0] = (1.0 - as) * dsw +  (1.0 - asdiff) * dswdiff;
+                        swf[0] = (1.0 - as) * max(0.0,(dsw - dswdiff)) +  (1.0 - asdiff) * dswdiff;
                 }
                 else{