Merge pull request #112 from raphaeldussin/user/rd/fix_mask_bug

slow/fast mask bug fix
NOAA-GFDL · Mar 9, 2020 · 674739f · 674739f
2 parents acef10e + 0e7b3dc
commit 674739f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ice_model.F90 b/src/ice_model.F90
@@ -2723,7 +2723,7 @@ subroutine ice_model_init(Ice, Time_Init, Time, Time_step_fast, Time_step_slow,
       Ice%fCS%Rad%t_skin(:,:,:) = 0.0
     elseif (do_mask_restart) then
       do k=1,CatIce
-        Ice%fCS%Rad%t_skin(:,:,k) = Ice%fCS%Rad%t_skin(:,:,k) * sG%mask2dT(:,:)
+        Ice%fCS%Rad%t_skin(:,:,k) = Ice%fCS%Rad%t_skin(:,:,k) * fG%mask2dT(:,:)
       enddo
     endif
     if (init_rough) then