Removed mrg_fracname from Fwxx merges

NorESMhub · Apr 26, 2023 · cb585c5 · cb585c5
1 parent abc5658
commit cb585c5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/mediator/esmFldsExchange_cesm_mod.F90 b/mediator/esmFldsExchange_cesm_mod.F90
@@ -3009,10 +3009,12 @@ subroutine esmFldsExchange_cesm(gcomp, phase, rc)
           if (fldchk(is_local%wrap%FBimp(compice,compice), 'Fioi_taux', rc=rc)) then 
              call addmap_from(compice, 'Fioi_taux', compwav, mapfcopy, 'unset', 'unset')
              call addmrg_to(compwav, 'Fwxx_taux', &
-                  mrg_from=compice, mrg_fld='Fioi_taux', mrg_type='merge', mrg_fracname='ifrac')
+                  mrg_from=compice, mrg_fld='Fioi_taux', mrg_type='merge')
+!                  mrg_from=compice, mrg_fld='Fioi_taux', mrg_type='merge', mrg_fracname='ifrac')
           end if
           call addmrg_to(compwav, 'Fwxx_taux', &
-               mrg_from=compmed, mrg_fld='Faox_taux', mrg_type='merge', mrg_fracname='ofrac')
+               mrg_from=compmed, mrg_fld='Faox_taux', mrg_type='merge')
+!               mrg_from=compmed, mrg_fld='Faox_taux', mrg_type='merge', mrg_fracname='ofrac')
        end if
     end if
 !PSH end