From bb133704a0b8d449dbd078775617f2a72c9108eb Mon Sep 17 00:00:00 2001 From: "Bin.Li" Date: Thu, 16 Jan 2025 15:16:59 +0000 Subject: [PATCH 1/2] Add a fill value in wav_import_export.F90. --- model/src/wav_import_export.F90 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/model/src/wav_import_export.F90 b/model/src/wav_import_export.F90 index 9d859989d..3899f35df 100644 --- a/model/src/wav_import_export.F90 +++ b/model/src/wav_import_export.F90 @@ -293,6 +293,8 @@ subroutine import_fields( gcomp, time0, timen, rc ) character(len=10) :: vwnd integer :: imod, j, jmod integer :: mpi_comm_null = -1 + integer :: isea + real(r4), parameter :: fillv = 9.99e20 real(r4), allocatable :: wxdata(:) ! only needed if merge_import real(r4), allocatable :: wydata(:) ! only needed if merge_import character(len=CL) :: msgString @@ -357,6 +359,10 @@ subroutine import_fields( gcomp, time0, timen, rc ) if (state_fldchk(importState, 'So_u')) then call SetGlobalInput(importState, 'So_u', vm, global_data, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return + do isea = 1,nsea + if(abs(global_data(isea)-fillv).lt.0.01) then + global_data(isea)=0.0 + enddo call FillGlobalInput(global_data, CX0) call FillGlobalInput(global_data, CXN) end if @@ -366,6 +372,10 @@ subroutine import_fields( gcomp, time0, timen, rc ) if (state_fldchk(importState, 'So_v')) then call SetGlobalInput(importState, 'So_v', vm, global_data, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return + do isea = 1,nsea + if(abs(global_data(isea)-fillv).lt.0.01) then + global_data(isea)=0.0 + enddo call FillGlobalInput(global_data, CY0) call FillGlobalInput(global_data, CYN) end if From 63480fb7a518ca7770b94be65ab3318315c1e367 Mon Sep 17 00:00:00 2001 From: "Bin.Li" Date: Sun, 19 Jan 2025 09:50:14 +0000 Subject: [PATCH 2/2] Update wav_import_export.F90. --- model/src/wav_import_export.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/model/src/wav_import_export.F90 b/model/src/wav_import_export.F90 index 3899f35df..c14b06c0a 100644 --- a/model/src/wav_import_export.F90 +++ b/model/src/wav_import_export.F90 @@ -362,7 +362,8 @@ subroutine import_fields( gcomp, time0, timen, rc ) do isea = 1,nsea if(abs(global_data(isea)-fillv).lt.0.01) then global_data(isea)=0.0 - enddo + end if + end do call FillGlobalInput(global_data, CX0) call FillGlobalInput(global_data, CXN) end if @@ -375,7 +376,8 @@ subroutine import_fields( gcomp, time0, timen, rc ) do isea = 1,nsea if(abs(global_data(isea)-fillv).lt.0.01) then global_data(isea)=0.0 - enddo + end if + end do call FillGlobalInput(global_data, CY0) call FillGlobalInput(global_data, CYN) end if