set_tracer
– Arbitrary set values for a field
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real, | intent(out) | :: | var(i1:i2,j1:j2) |
subroutine set_tracer(var) real , intent(out) :: var(i1:i2, j1:j2) integer :: i, j do j = j1, j2 do i = i1,i2 !var(i,j) = lons(i) var(i,j) = 10.0 + 5.0*sin(lons(i)/lon_max*PI) + 2.0*sin(lats(j)/lat_max*PI) enddo enddo end subroutine set_tracer