fixed diag bug

ESCOMP · Aug 10, 2024 · 5f71b36 · 5f71b36
1 parent 7053191
commit 5f71b36
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mediator/med_diag_mod.F90 b/mediator/med_diag_mod.F90
@@ -1204,7 +1204,7 @@ subroutine med_phases_diag_rof( gcomp, rc)
     if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
     if ( fldbun_fldchk(is_local%wrap%FBImp(comprof,comprof), 'Forr_rofl_glc', rc=rc)) then
-      call diag_rof(is_local%wrap%FBImp(comprof,comprof), 'Forr_rofi_glc' , f_watr_roff, ic, areas, budget_local, minus=.true., rc=rc)
+      call diag_rof(is_local%wrap%FBImp(comprof,comprof), 'Forr_rofl_glc' , f_watr_roff, ic, areas, budget_local, minus=.true., rc=rc)
       if (ChkErr(rc,__LINE__,u_FILE_u)) return
     end if
     if ( fldbun_fldchk(is_local%wrap%FBImp(comprof,comprof), 'Forr_rofi_glc', rc=rc)) then