Adding ifrac and ofrac to fraclist_w

NorESMhub · May 10, 2023 · 3ca2795 · 3ca2795
1 parent 9d4e81c
commit 3ca2795
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/mediator/med_fraction_mod.F90 b/mediator/med_fraction_mod.F90
@@ -130,8 +130,8 @@ module med_fraction_mod
   character(len=6),parameter,dimension(2) :: fraclist_g = (/'gfrac ','lfrac '/)
   character(len=6),parameter,dimension(2) :: fraclist_r = (/'rfrac ','lfrac '/)
 !PSH begin  
-  character(len=6),parameter,dimension(1) :: fraclist_w = (/'wfrac '/)
-!  character(len=6),parameter,dimension(3) :: fraclist_w = (/'ifrac ','ofrac ','wfrac '/)
+!  character(len=6),parameter,dimension(1) :: fraclist_w = (/'wfrac '/)
+  character(len=6),parameter,dimension(3) :: fraclist_w = (/'ifrac ','ofrac ','wfrac '/)
 !PSH end
   !--- standard ---
   real(R8)    , parameter :: eps_fraclim = 1.0e-03      ! truncation limit in fractions_a(lfrac)