removed trailing whitespace

NOAA-GFDL · Dec 31, 2018 · 9deec5d · 9deec5d
1 parent 5a2dd8b
commit 9deec5d
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/config_src/nuopc_driver/mom_cap.F90 b/config_src/nuopc_driver/mom_cap.F90
@@ -1732,7 +1732,7 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc)
     endif
 
     !---------------------------------
-    ! set surface temperature to 0 if ocean mask is 0 
+    ! set surface temperature to 0 if ocean mask is 0
     !---------------------------------
 
     ! TODO (mvertens, 2018-12-30): is this really necessary? for now only do this for grid
@@ -1756,21 +1756,21 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc)
             line=__LINE__, &
             file=__FILE__)) &
             return  ! bail out
-       
+
        call ocean_model_data_get(ocean_state, ocean_public, 'mask', ofld, isc, jsc)
-       
+
        if (geomtype == ESMF_GEOMTYPE_GRID) then
           call ESMF_FieldGet(field_t_surf, localDe=0, farrayPtr=t_surf2d, rc=rc)
           if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
                line=__LINE__, &
                file=__FILE__)) &
                return  ! bail out
-          
+
           lbnd1 = lbound(t_surf2d,1)
           ubnd1 = ubound(t_surf2d,1)
           lbnd2 = lbound(t_surf2d,2)
           ubnd2 = ubound(t_surf2d,2)
-          
+
           do j = lbnd2, ubnd2
              do i = lbnd1, ubnd1
                 j1 = j - lbnd2 + jsc
@@ -1791,7 +1791,7 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc)
     !     line=__LINE__, &
     !     file=__FILE__)) &
     !     return  ! bail out
-    
+
   end subroutine InitializeRealize
 
   !===============================================================================

diff --git a/config_src/nuopc_driver/mom_cap_methods.F90 b/config_src/nuopc_driver/mom_cap_methods.F90
@@ -638,7 +638,7 @@ subroutine mom_export(ocean_public, ocean_grid, ocean_state, exportState, clock,
          line=__LINE__, &
          file=__FILE__)) &
          return  ! bail out
-    
+
     call State_SetExport(exportState, trim(fldname_y), &
          isc, iec, jsc, jec, ocean_public%v_surf, ocean_grid, rc=rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
@@ -700,7 +700,7 @@ subroutine mom_export(ocean_public, ocean_grid, ocean_state, exportState, clock,
          return  ! bail out
 
     ! -------
-    ! frazil and freezing melting potential 
+    ! frazil and freezing melting potential
     ! -------
 
     call ESMF_StateGet(exportState, 'accum_heat_frazil'         , itemFlag1)
@@ -741,7 +741,7 @@ subroutine mom_export(ocean_public, ocean_grid, ocean_state, exportState, clock,
     end if
 
     ! -------
-    ! Sea level 
+    ! Sea level
     ! -------
     fldname = 'sea_level'
     call ESMF_StateGet(exportState, trim(fldname), itemFlag, rc=rc)