set_tracer Subroutine

subroutine set_tracer(var)

set_tracer – Arbitrary set values for a field

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: var(i1:i2,j1:j2)

Called by

proc~~set_tracer~~CalledByGraph proc~set_tracer set_tracer proc~run_model run_model proc~run_model->proc~set_tracer program~main~8 main program~main~8->proc~run_model

Source Code

   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