set_temperature Subroutine

subroutine set_temperature(var)

set_temperature – Arbitrary set values for the temperature field.

Arguments

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

Called by

proc~~set_temperature~~CalledByGraph proc~set_temperature set_temperature proc~run_model~2 run_model proc~run_model~2->proc~set_temperature program~main~3 main program~main~3->proc~run_model~2

Source Code

   subroutine set_temperature(var)

      real , intent(out) ::    var(i1:i2, j1:j2)
      integer :: i, j

      do j = j1, j2
         do i = i1,i2
            var(i,j) =  2.0 + cos(2.0*lons(i)/lon_max*PI) &
                        *cos(lats(j)/lat_max*PI)*cos(lats(j)/lat_max*PI)
         enddo
      enddo

   end subroutine set_temperature