Closed HyunChaeJung closed 1 year ago
if ( bd_flag == 1 ) then !!west edge side
if (ieg2_ocn < i0 .and. i0 < isg3_ocn .or. &
ieg2_ocn < i1 .and. i1 < isg3_ocn ) then
Profiles(num_profiles)%accepted = .false.
end if
end if
if ( bd_flag == 2 ) then !!east edge side
if (ieg3_ocn < i0 .and. i0 < isg2_ocn .or. &
ieg3_ocn < i1 .and. i1 < isg2_ocn ) then
Profiles(num_profiles)%accepted = .false.
end if
end if
if ( j0 < jsg2_ocn .or. j0 > jeg2_ocn .or. &
j1 < jsg2_ocn .or. j1 > jeg2_ocn ) then
Profiles(num_profiles)%accepted = .false.
end if
!!hcjung
WOD profiles missing value 오류
==========수정================================ ! List of variables for ODA real, parameter, public :: MISSING_VALUE = -1.e10