Searched refs:toe_san_in (Results 1 – 4 of 4) sorted by relevance
46 integer (kind = EightByteInt) :: toe_san_in(1) variable159 call check(nf90mpi_get_var_all(ncid, varid3_in, toe_san_in))160 if (toe_san_in(1) .ne. TOE_SAN_VALUE) stop 14
45 integer (kind = EightByteInt) :: toe_san_in(1) variable160 call check(nf90mpi_get_var_all(ncid, varid3_in, toe_san_in))161 if (toe_san_in(1) .ne. TOE_SAN_VALUE) stop 14
45 integer (kind = EightByteInt) :: toe_san_in variable160 call check(nf90_get_var(ncid, varid3_in, toe_san_in))161 if (toe_san_in .ne. TOE_SAN_VALUE) stop 14
46 integer (kind = EightByteInt) :: toe_san_in variable163 call check(nf90_get_var(ncid, varid3_in, toe_san_in))164 if (toe_san_in .ne. TOE_SAN_VALUE) stop 14