fix length of runid

NorESMhub · Aug 19, 2024 · d6cf3a0 · d6cf3a0
1 parent 7e5a421
commit d6cf3a0
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/drivers/nuopc/ocn_comp_nuopc.F90 b/drivers/nuopc/ocn_comp_nuopc.F90
@@ -331,7 +331,7 @@ subroutine InitializeP0(gcomp, importState, exportState, clock, rc)
 
       ! Local variables.
       logical :: isPresent, isSet
-      character(len=cslen) :: cvalue
+      character(len=cllen) :: cvalue
 
       ! Switch to IPDv01 by filtering all other PhaseMap entries
       call NUOPC_CompFilterPhaseMap(gcomp, ESMF_METHOD_INITIALIZE, &
@@ -373,8 +373,8 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
       type(ESMF_VM) :: vm
       type(ESMF_TimeInterval) :: timeStep
       integer :: localPet, nthrds, shrlogunit, n
-      character(len=cslen) :: starttype, stdname, cvalue, cname
-      character(len=cllen) :: msg
+      character(len=cslen) :: starttype, stdname
+      character(len=cllen) :: msg, cvalue
       logical :: isPresent, isSet
       logical :: flds_co2a, flds_co2c
 
@@ -401,7 +401,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
          if (ChkErr(rc, __LINE__, u_FILE_u)) return
          read(cvalue,*) nthrds
       endif
-!$    call omp_set_num_threads(nthrds)
+      !$    call omp_set_num_threads(nthrds)
 
       ! Reset shr logging to components log file.
       call set_component_logging(gcomp, localPet==0, lp, shrlogunit, rc)