update_salinity Subroutine

private subroutine update_salinity()

calculate salinity in PSU according to

Arguments

None

Calls

proc~~update_salinity~~CallsGraph proc~update_salinity uvic_fabm::update_salinity kmt kmt proc~update_salinity->kmt t t proc~update_salinity->t variable_needs_values variable_needs_values proc~update_salinity->variable_needs_values

Called by

proc~~update_salinity~~CalledByGraph proc~update_salinity uvic_fabm::update_salinity proc~update_data uvic_fabm::update_data proc~update_data->proc~update_salinity proc~fabm_update uvic_fabm::fabm_update proc~fabm_update->proc~update_data

Source Code

      subroutine update_salinity()
         !! calculate salinity in PSU according to $$S = 35 + 
         !! 1000*S_{UVic}$$

         integer i,j,k
            ! local loop counters

         if (model%variable_needs_values(id_practical_salinity)) then
            do j=2,jmt-1
               do k=1,km
                  do i=2,imt-1
                     if (kmt(i,j) > 0) then
                        salt(i,k,j) = 35._rk+1000._rke*t(i,k,j,isalt,0)
                     end if
                  end do
               end do
            end do
         end if
      end subroutine update_salinity