Merge pull request #381 from matsbn/feature-stream_checksum

Climatology stream checksums only when requested
NorESMhub · Aug 21, 2024 · 92eae4f · 92eae4f
2 parents 65e0b3e + fd52d10
commit 92eae4f
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 5 deletions.
diff --git a/drivers/nuopc/ocn_stream_sss.F90 b/drivers/nuopc/ocn_stream_sss.F90
@@ -180,7 +180,7 @@ subroutine ocn_stream_sss_interp(model_clock, rc)
       use dshr_strdata_mod , only : shr_strdata_advance
       use dshr_methods_mod , only : dshr_fldbun_getfldptr
       use mod_forcing      , only : sss_stream
-      use mod_checksum     , only : chksummsk
+      use mod_checksum     , only : csdiag, chksummsk
 
       ! input/output variables
       type(ESMF_Clock), intent(in)  :: model_clock
@@ -252,7 +252,12 @@ subroutine ocn_stream_sss_interp(model_clock, rc)
 
       call fill_global(mval, fval, halo_ps, sss_stream(1-nbdy,1-nbdy))
 
-      call chksummsk(sss_stream(1-nbdy,1-nbdy),ip,1,'sst_stream')
+      if (csdiag) then
+         if (mnproc == 1) then
+            write(lp,*) 'ocn_stream_sss_interp:'
+         end if
+         call chksummsk(sss_stream(1-nbdy,1-nbdy),ip,1,'sss_stream')
+      end if
 
    end subroutine ocn_stream_sss_interp
 

diff --git a/drivers/nuopc/ocn_stream_sst.F90 b/drivers/nuopc/ocn_stream_sst.F90
@@ -183,7 +183,7 @@ subroutine ocn_stream_sst_interp(model_clock, rc)
       use dshr_strdata_mod , only : shr_strdata_advance
       use dshr_methods_mod , only : dshr_fldbun_getfldptr
       use mod_forcing      , only : sst_stream, ice_stream
-      use mod_checksum     , only : chksummsk
+      use mod_checksum     , only : csdiag, chksummsk
 
       ! input/output variables
       type(ESMF_Clock), intent(in)  :: model_clock
@@ -264,8 +264,13 @@ subroutine ocn_stream_sst_interp(model_clock, rc)
       call fill_global(mval, fval, halo_ps, sst_stream(1-nbdy,1-nbdy))
       call fill_global(mval, fval, halo_ps, ice_stream(1-nbdy,1-nbdy))
 
-      call chksummsk(sst_stream(1-nbdy,1-nbdy),ip,1,'sst_stream')
-      call chksummsk(ice_stream(1-nbdy,1-nbdy),ip,1,'ice_stream')
+      if (csdiag) then
+         if (mnproc == 1) then
+            write(lp,*) 'ocn_stream_sst_interp:'
+         end if
+         call chksummsk(sst_stream(1-nbdy,1-nbdy),ip,1,'sst_stream')
+         call chksummsk(ice_stream(1-nbdy,1-nbdy),ip,1,'ice_stream')
+      end if
 
    end subroutine ocn_stream_sst_interp