dyn_grid_id Function

public pure function dyn_grid_id(name)

Uses

    • physics_grid
  • proc~~dyn_grid_id~~UsesGraph proc~dyn_grid_id dyn_grid_id physics_grid physics_grid proc~dyn_grid_id->physics_grid

Helper function for returning grid id given its name. (KCW, 2024-03-27)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

Return Value integer


Called by

proc~~dyn_grid_id~~CalledByGraph proc~dyn_grid_id dyn_grid_id proc~define_cam_grid define_cam_grid proc~define_cam_grid->proc~dyn_grid_id proc~model_grid_init model_grid_init proc~model_grid_init->proc~define_cam_grid

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

    pure function dyn_grid_id(name)
        ! Module(s) from CAM-SIMA.
        use physics_grid, only: phys_decomp

        character(*), intent(in) :: name
        integer :: dyn_grid_id

        integer :: i

        do i = 1, size(dyn_grid_name)
            if (trim(adjustl(dyn_grid_name(i))) == trim(adjustl(name))) then
                ! Grid ids count from `phys_decomp` + 1.
                ! This avoids id collisions between dynamics and physics grids.
                dyn_grid_id = phys_decomp + i

                return
            end if
        end do

        dyn_grid_id = 0
    end function dyn_grid_id