adding recom preprocessor flags around recom namelist flags

FESOM · Aug 20, 2024 · e36ed15 · e36ed15
1 parent a576e48
commit e36ed15
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/io_meandata.F90 b/src/io_meandata.F90
@@ -688,7 +688,7 @@ subroutine ini_mean_io(ice, dynamics, tracers, partit, mesh)
 CASE ('otracers  ')
     do j=3, tracers%num_tracers
     write (id_string, "(I4.4)") tracers%data(j)%ID
-
+#if defined(__recom)
       if (tracers%data(j)%ID==1001) then
          if (use_REcoM) then
          call def_stream((/nl-1, nod2D/),  (/nl-1, myDim_nod2D/),  'DIN', 'Dissolved Inorganic Nitrogen', '[mmol/m3]', tracers%data(j)%values(:,:), io_list(i)%freq, io_list(i)%unit, io_list(i)%precision, partit, mesh)
@@ -854,8 +854,11 @@ subroutine ini_mean_io(ice, dynamics, tracers, partit, mesh)
          call def_stream((/nl-1, nod2D/),  (/nl-1, myDim_nod2D/),  'Zoo3C', 'Zoo3C', '[mmol/m3]', tracers%data(j)%values(:,:), io_list(i)%freq, io_list(i)%unit, io_list(i)%precision, partit, mesh)
          endif
       else
+#endif
          call def_stream((/nl-1, nod2D/),  (/nl-1, myDim_nod2D/),  'tra_'//id_string, 'passive tracer ID='//id_string, 'n/a', tracers%data(j)%values(:,:), io_list(i)%freq, io_list(i)%unit, io_list(i)%precision, partit, mesh)
+#if defined(__recom)
       end if
+#endif
     end do