Merge pull request #655 from FESOM/fix_lumi_compile

Fix compilation on LUMI with cray 16.0.1

src/gen_modules_diag.F90

@@ -3188,9 +3188,9 @@ subroutine dvd_add_difflux_sbc(do_SDdvd, tr_num, dvd_tot, tr, trstar, partit, me
             !     Xchi at full depth level interface
             nz = 1 
 !PS             Dflx(nz) = Dflx(nz) * -2.0_WP*( trstar(nz, node) )
-            Dflx(nz) = Dflx(nz) * -2.0_WP*( trstar(nz+1, node)-trstar(nz, node) )
+            Dflx(nz) = Dflx(nz) * (-2.0_WP) * ( trstar(nz+1, node)-trstar(nz, node) )
             do nz=nu1+1, nl1-1
-                Dflx(nz) = Dflx(nz) * -2.0_WP*( trstar(nz, node)-trstar(nz-1, node) )
+                Dflx(nz) = Dflx(nz) * (-2.0_WP) * ( trstar(nz, node)-trstar(nz-1, node) )
             end do ! --> do nz=nu1+1, nl1-1
 
             !___________________________________________________________________
@@ -3517,4 +3517,4 @@ subroutine dvd_add_clim_relax(do_SDdvd, tr_num, dvd_tot, tr, partit, mesh)
     end do
 end subroutine dvd_add_clim_relax
 
-end module diagnostics
+end module diagnostics

src/icb_step.F90

@@ -1704,7 +1704,7 @@ subroutine init_buoy_output(partit)
   longname='time' ! use NetCDF Climate and Forecast (CF) Metadata Convention
   status = nf_PUT_ATT_TEXT(ncid, time_varid, 'long_name', len_trim(longname), trim(longname)) 
   if (status .ne. nf_noerr) call handle_err(status)
-  write(att_text, '(a14,I4.4,a1,I2.2,a1,I2.2,a6)'), 'seconds since ', year_start, '-', month_start, '-', day_start, ' 00:00:00'
+  write(att_text, '(a14,I4.4,a1,I2.2,a1,I2.2,a6)') 'seconds since ', year_start, '-', month_start, '-', day_start, ' 00:00:00'
   status = nf_PUT_ATT_TEXT(ncid, time_varid, 'units', len_trim(att_text), trim(att_text))
   if (status .ne. nf_noerr) call handle_err(status)
   if (include_fleapyear) then
@@ -2125,4 +2125,4 @@ subroutine write_buoy_props_netcdf(partit)
 
 
 end subroutine write_buoy_props_netcdf
-end module iceberg_step
+end module iceberg_step