Added ifrac and ofrac to FBFrac for wave component

NorESMhub · Apr 26, 2023 · 95c5188 · 95c5188
1 parent cb585c5
commit 95c5188
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/mediator/med_fraction_mod.F90 b/mediator/med_fraction_mod.F90
@@ -126,8 +126,10 @@ module med_fraction_mod
   character(len=6),parameter,dimension(1) :: fraclist_l = (/'lfrac '/)
   character(len=6),parameter,dimension(2) :: fraclist_g = (/'gfrac ','lfrac '/)
   character(len=6),parameter,dimension(2) :: fraclist_r = (/'rfrac ','lfrac '/)
-  character(len=6),parameter,dimension(1) :: fraclist_w = (/'wfrac '/)
-
+!PSH begin  
+!  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)
   character(*), parameter :: u_FILE_u =  &