fabm_tracer_init Subroutine

public subroutine fabm_tracer_init(m)

surface boundary data are handled via sbc(imt,jmt,numsbc) in setmom.F, tracer.F, gosbc.F, embmio.F

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: m

number of handled variables handled so far

Calls

proc~~fabm_tracer_init~~CallsGraph proc~fabm_tracer_init uvic_fabm::fabm_tracer_init interior_state_variables interior_state_variables proc~fabm_tracer_init->interior_state_variables itrc itrc proc~fabm_tracer_init->itrc mapst mapst proc~fabm_tracer_init->mapst mapt mapt proc~fabm_tracer_init->mapt

Source Code

      subroutine fabm_tracer_init(m)
         !! surface boundary data are handled via sbc(imt,jmt,numsbc) in
         !! setmom.F, tracer.F, gosbc.F, embmio.F
         integer, intent(inout) :: m
            !! number of handled variables handled so far

         integer :: n

         ! need to get mapt populated early - setmom() -> mom_rest_in()
         associate(VAR => model%interior_state_variables)
!KB         print*, 'AAA ', mapt
         do n = 1, size(model%interior_state_variables)
            mapt(m+n) = trim(VAR(n)%name)
            mapst(m+n-4) = 's'//trim(VAR(n)%name)
            itrc(m+n-4) = m+n
         end do
#if 0
         print*, 'AAA ',mapt
         print*, mapst
         stop 'kaj'
#endif
         end associate
      end subroutine fabm_tracer_init