fixed bug

ESCOMP · Jun 26, 2024 · 66ce7e5 · 66ce7e5
1 parent 9b3cec2
commit 66ce7e5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/mediator/med_phases_prep_atm_mod.F90 b/mediator/med_phases_prep_atm_mod.F90
@@ -32,7 +32,7 @@ module med_phases_prep_atm_mod
 
   real(r8), public :: global_htot_corr(1) = 0._r8  ! enthalpy correction from med_phases_prep_ocn
 
-  character(len=14) :: fldnames_from_ocn(5) = (/'Faoo_fbrf_ocn','Faoo_fdms_ocn ','Faoo_fco2_ocn ',&
+  character(len=13) :: fldnames_from_ocn(5) = (/'Faoo_fbrf_ocn','Faoo_fdms_ocn','Faoo_fco2_ocn',&
                                                 'Faoo_fn2o_ocn','Faoo_fnh3_ocn'/)
 
   character(*), parameter :: u_FILE_u  = &
@@ -211,7 +211,7 @@ subroutine med_phases_prep_atm(gcomp, rc)
     call ESMF_FieldGet(lfield, farrayPtr=ofrac, rc=rc)
     if (chkerr(rc,__LINE__,u_FILE_u)) return
 
-    do nf = 1,len(fldnames_from_ocn)
+    do nf = 1,size(fldnames_from_ocn)
       if ( FB_FldChk(is_local%wrap%FBExp(compatm)        , trim(fldnames_from_ocn(nf)), rc=rc) .and. &
            FB_FldChk(is_local%wrap%FBImp(compocn,compocn), trim(fldnames_from_ocn(nf)), rc=rc)) then
         call ESMF_FieldBundleGet(is_local%wrap%FBImp(compocn,compatm), &