Skip to content

Commit

Permalink
added patch for modified w3wavemd.F90
Browse files Browse the repository at this point in the history
  • Loading branch information
ezhilsabareesh8 committed Nov 7, 2023
1 parent 506bb70 commit 3bf6093
Show file tree
Hide file tree
Showing 2 changed files with 36 additions and 1 deletion.
6 changes: 5 additions & 1 deletion WW3/CMakeLists.txt
Original file line number Diff line number Diff line change
Expand Up @@ -78,7 +78,6 @@ target_sources(OM3_ww3 PRIVATE
WW3/model/src/wmmdatmd.F90
WW3/model/src/wmunitmd.F90
WW3/model/src/wmupdtmd.F90
WW3/model/src/wmwavemd.F90
WW3/model/src/w3tidemd.F90
WW3/model/src/wav_grdout.F90
WW3/model/src/w3iogoncdmd.F90
Expand All @@ -93,6 +92,11 @@ target_sources(OM3_ww3 PRIVATE
${switch_files}
)

target_include_directories(OM3_ww3 PRIVATE ${CMAKE_CURRENT_SOURCE_DIR}/WW3/model/src)

#patched source
add_patched_source(OM3_ww3 WW3/model/src/w3wavemd.F90)

## Utilities

# ww3_grid
Expand Down
31 changes: 31 additions & 0 deletions WW3/patches/w3wavemd.F90.patch
Original file line number Diff line number Diff line change
@@ -0,0 +1,31 @@
--- WW3/model/src/w3wavemd.F90 2023-10-31 16:49:44.000000000 +1100
+++ WW3/model/src/w3wavemd_modified.F90 2023-11-02 11:18:38.000000000 +1100
@@ -2413,6 +2413,7 @@
end IF

do_w3outg = .false.
+
if (w3_cesmcoupled_flag .and. histwr) then
do_w3outg = .true.
else if ( LOCAL .AND. (FLOUTG .OR. FLOUTG2) ) then
@@ -2562,11 +2563,7 @@
if (w3_sbs_flag) then
do_gridded_output = ( j .eq. 1 ) .or. ( j .eq. 7 )
else
- if (w3_cesmcoupled_flag) then
- do_gridded_output = ( j .eq. 1 ) .and. histwr
- else
- do_gridded_output = ( j .eq. 1 )
- end if
+ do_gridded_output = ( j .eq. 1 )
end if
do_point_output = (j .eq. 2)
do_track_output = (j .eq. 3)
@@ -2587,6 +2584,7 @@
TOUT(:) = TONEXT(:,J)
DTTST = DSEC21 ( TIME, TOUT )
!
+
IF ( DTTST .EQ. 0. ) THEN
if (do_gridded_output) then
if (user_netcdf_grdout) then

0 comments on commit 3bf6093

Please sign in to comment.