ROMS
|
Functions/Subroutines | |
subroutine, public | uv_c2a_grid (ng, tile, model, ninp) |
subroutine | uv_c2a_grid_tile (ng, tile, model, ninp, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, rmask, cosangler, sinangler, u, v, ua, va) |
subroutine, public | uv_a2c_grid (ng, tile, model, nout) |
subroutine | uv_a2c_grid_tile (ng, tile, model, nout, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, umask, vmask, cosangler, sinangler, ua, va, u, v) |
subroutine, public | tl_uv_c2a_grid (ng, tile, model, ninp) |
subroutine | tl_uv_c2a_grid_tile (ng, tile, model, ninp, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, rmask, cosangler, sinangler, tl_u, tl_v, tl_ua, tl_va) |
subroutine, public | tl_uv_a2c_grid (ng, tile, model, nout) |
subroutine | tl_uv_a2c_grid_tile (ng, tile, model, nout, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, umask, vmask, cosangler, sinangler, tl_ua, tl_va, tl_u, tl_v) |
subroutine, public | ad_uv_c2a_grid (ng, tile, model, ninp) |
subroutine | ad_uv_c2a_grid_tile (ng, tile, model, ninp, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, rmask, cosangler, sinangler, ad_u, ad_v, ad_ua, ad_va) |
subroutine, public | ad_uv_a2c_grid (ng, tile, model, nout) |
subroutine | ad_uv_a2c_grid_tile (ng, tile, model, nout, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, umask, vmask, cosangler, sinangler, ad_ua, ad_va, ad_u, ad_v) |
subroutine, public uv_var_change_mod::ad_uv_a2c_grid | ( | integer, intent(in) | ng, |
integer, intent(in) | tile, | ||
integer, intent(in) | model, | ||
integer, intent(in) | nout ) |
Definition at line 922 of file uv_var_change.F.
References ad_uv_a2c_grid_tile(), mod_grid::grid, mod_ocean::ocean, wclock_off(), and wclock_on().
|
private |
CALL mp_exchange3d (ng, tile, model, 2, & & LBi, UBi, LBj, UBj, 1, N(ng), & & NghostPoints, & & EWperiodic(ng), NSperiodic(ng), & & tl_u(:,:,:,nout), tl_v(:,:,:,nout))
tl_v(i,j,k,nout)=tl_v(i,j,k,nout)*vmask(i,j)
tl_v(i,j,k,nout)=0.5_r8*(tl_Vrho(i,j-1)+tl_Vrho(i,j))
tl_u(i,j,k,nout)=tl_u(i,j,k,nout)*umask(i,j)
tl_u(i,j,k,nout)=0.5_r8*(tl_Urho(i-1,j)+tl_Urho(i,j))
tl_Vrho(i,j)=tl_va(i,j,k)*CosAngler(i,j)- & & tl_ua(i,j,k)*SinAngler(i,j)
tl_Urho(i,j)=tl_ua(i,j,k)*CosAngler(i,j)+ & & tl_va(i,j,k)*SinAngler(i,j)
Definition at line 960 of file uv_var_change.F.
References mp_exchange_mod::ad_mp_exchange3d(), mod_scalars::ewperiodic, mod_param::nghostpoints, and mod_scalars::nsperiodic.
Referenced by ad_uv_a2c_grid().
subroutine, public uv_var_change_mod::ad_uv_c2a_grid | ( | integer, intent(in) | ng, |
integer, intent(in) | tile, | ||
integer, intent(in) | model, | ||
integer, intent(in) | ninp ) |
Definition at line 714 of file uv_var_change.F.
References ad_uv_c2a_grid_tile(), mod_grid::grid, mod_ocean::ocean, wclock_off(), and wclock_on().
Referenced by ad_step3d_uv_mod::ad_step3d_uv_tile().
|
private |
CALL mp_exchange3d (ng, tile, model, 2, & & LBi, UBi, LBj, UBj, 1, N(ng), & & NghostPoints, & & EWperiodic(ng), NSperiodic(ng), & & tl_ua, tl_va)
tl_va(i,j,k)=tl_va(i,j,k)*rmask(i,j)
tl_ua(i,j,k)=tl_ua(i,j,k)*rmask(i,j)
tl_va(i,j,k)=tl_Vrho(i,j)*CosAngler(i,j)+ & & tl_Urho(i,j)*SinAngler(i,j)
tl_ua(i,j,k)=tl_Urho(i,j)*CosAngler(i,j) & & tl_Vrho(i,j)*SinAngler(i,j)
tl_Vrho(i,Jend+1)=tl_Vrho(i,Jend)
tl_Vrho(i,Jstr-1)=tl_Vrho(i,Jstr)
tl_Vrho(i,j)=0.5_r8*(tl_v(i,j,k,ninp)+tl_v(i,j+1,k,ninp))
tl_Urho(Iend+1,j)=tl_Urho(Iend,j)
tl_Urho(Istr-1,j)=tl_Urho(Istr,j)
tl_Urho(i,j)=0.5_r8*(tl_u(i,j,k,ninp)+tl_u(i+1,j,k,ninp))
Definition at line 751 of file uv_var_change.F.
References mp_exchange_mod::ad_mp_exchange3d(), mod_param::domain, mod_scalars::ewperiodic, mod_param::nghostpoints, and mod_scalars::nsperiodic.
Referenced by ad_uv_c2a_grid().
subroutine, public uv_var_change_mod::tl_uv_a2c_grid | ( | integer, intent(in) | ng, |
integer, intent(in) | tile, | ||
integer, intent(in) | model, | ||
integer, intent(in) | nout ) |
Definition at line 550 of file uv_var_change.F.
References mod_grid::grid, mod_ocean::ocean, tl_uv_a2c_grid_tile(), wclock_off(), and wclock_on().
|
private |
Urho(i,j)=ua(i,j,k)*CosAngler(i,j)+ & & va(i,j,k)*SinAngler(i,j)
Vrho(i,j)=va(i,j,k)*CosAngler(i,j)- & & ua(i,j,k)*SinAngler(i,j)
u(i,j,k,nout)=0.5_r8*(Urho(i-1,j)+Urho(i,j))
u(i,j,k,nout)=u(i,j,k,nout)*umask(i,j)
v(i,j,k,nout)=0.5_r8*(Vrho(i,j-1)+Vrho(i,j))
v(i,j,k,nout)=v(i,j,k,nout)*vmask(i,j)
CALL mp_exchange3d (ng, tile, model, 2, & & LBi, UBi, LBj, UBj, 1, N(ng), & & NghostPoints, & & EWperiodic(ng), NSperiodic(ng), & & u(:,:,:,nout), v(:,:,:,nout))
Definition at line 588 of file uv_var_change.F.
References mod_scalars::ewperiodic, mp_exchange_mod::mp_exchange3d(), mod_param::nghostpoints, and mod_scalars::nsperiodic.
Referenced by tl_uv_a2c_grid().
subroutine, public uv_var_change_mod::tl_uv_c2a_grid | ( | integer, intent(in) | ng, |
integer, intent(in) | tile, | ||
integer, intent(in) | model, | ||
integer, intent(in) | ninp ) |
Definition at line 369 of file uv_var_change.F.
References mod_grid::grid, mod_ocean::ocean, tl_uv_c2a_grid_tile(), wclock_off(), and wclock_on().
Referenced by rp_step3d_uv_mod::rp_step3d_uv_tile(), and tl_step3d_uv_mod::tl_step3d_uv_tile().
|
private |
Urho(i,j)=0.5_r8*(u(i,j,k,ninp)+u(i+1,j,k,ninp))
Urho(Istr-1,j)=Urho(Istr,j)
Urho(Iend+1,j)=Urho(Iend,j)
Vrho(i,j)=0.5_r8*(v(i,j,k,ninp)+v(i,j+1,k,ninp))
Vrho(i,Jstr-1) = Vrho(i,Jstr)
Vrho(i,Jend+1) = Vrho(i,Jend)
ua(i,j,k)=Urho(i,j)*CosAngler(i,j)- & & Vrho(i,j)*SinAngler(i,j)
va(i,j,k)=Vrho(i,j)*CosAngler(i,j)+ & & Urho(i,j)*SinAngler(i,j)
ua(i,j,k)=ua(i,j,k)*rmask(i,j)
va(i,j,k)=va(i,j,k)*rmask(i,j)
CALL mp_exchange3d (ng, tile, model, 2, & & LBi, UBi, LBj, UBj, 1, N(ng), & & NghostPoints, & & EWperiodic(ng), NSperiodic(ng), & & ua, va)
Definition at line 406 of file uv_var_change.F.
References mod_param::domain, mod_scalars::ewperiodic, mp_exchange_mod::mp_exchange3d(), mod_param::nghostpoints, and mod_scalars::nsperiodic.
Referenced by tl_uv_c2a_grid().
subroutine, public uv_var_change_mod::uv_a2c_grid | ( | integer, intent(in) | ng, |
integer, intent(in) | tile, | ||
integer, intent(in) | model, | ||
integer, intent(in) | nout ) |
Definition at line 225 of file uv_var_change.F.
References mod_grid::grid, mod_ocean::ocean, uv_a2c_grid_tile(), wclock_off(), and wclock_on().
|
private |
Definition at line 265 of file uv_var_change.F.
References mod_scalars::ewperiodic, mp_exchange_mod::mp_exchange3d(), mod_param::nghostpoints, and mod_scalars::nsperiodic.
Referenced by uv_a2c_grid().
subroutine, public uv_var_change_mod::uv_c2a_grid | ( | integer, intent(in) | ng, |
integer, intent(in) | tile, | ||
integer, intent(in) | model, | ||
integer, intent(in) | ninp ) |
Definition at line 74 of file uv_var_change.F.
References mod_grid::grid, mod_ocean::ocean, uv_c2a_grid_tile(), wclock_off(), and wclock_on().
Referenced by step3d_uv_mod::step3d_uv_tile().
|
private |
Definition at line 111 of file uv_var_change.F.
References mod_param::domain, mod_scalars::ewperiodic, mp_exchange_mod::mp_exchange3d(), mod_param::nghostpoints, and mod_scalars::nsperiodic.
Referenced by uv_c2a_grid().