|
FE-Project
|
Derived type to manage variables with coupler component. More...
Public Member Functions | |
| procedure | init (this, mesh3d_atm, mesh2d_atm, mesh2d_ocn) |
| procedure | final (this) |
| procedure | putatm (this, atm_ddens, atm_momz, atm_momx, atm_momy, atm_qv, atm_pres, atm_rtot, atm_dens_hyd, sflx_rad_sw_dir_dn, sflx_rad_lw_dif_dn, sflx_engi, countup) |
| Put ATM variables to CPL buffer for OCN component. | |
| procedure | putocn (this, ocn_vars, countup) |
| Put OCN variables to CPL buffer for ATM component. | |
| procedure | get_sfc_atm (this, sfc_temp, sfc_albedo, sflx_mw, sflx_mu, sflx_mv, sflx_sh, sflx_lh, sflx_qv) |
| Get SFC variables from CPL buffer for ATM component. | |
| procedure | get_atm_ocn (this, atm_sfc_dens, atm_sfc_pres, atm_temp, atm_pres, atm_w, atm_u, atm_v, atm_qv, rd_sflx_sw_dir, rd_sflx_lw_dif, dz_a) |
| Get ATM variables from CPL buffer for OCN component. | |
Public Attributes | |
| type(meshfield2d), dimension(:), allocatable | ocn_vars |
| type(meshfield2d), dimension(:), allocatable | ocn_atm_vars |
| real(rp) | cnt_putatm_ocn |
| Counter for putting ATM variables to OCN component. | |
| real(rp) | cnt_putocn_atm |
| Counter for putting OCN variables to ATM component. | |
| class(meshbase3d), pointer | mesh3d_atm => null() |
| class(meshbase2d), pointer | mesh2d_atm => null() |
| class(meshbase2d), pointer | mesh2d_ocn => null() |
Derived type to manage variables with coupler component.
Definition at line 48 of file mod_cpl_vars.F90.
| procedure mod_cpl_vars::couplervars::init | ( | class(couplervars), intent(inout) | this, |
| class(meshbase3d), intent(in), target | mesh3d_atm, | ||
| class(meshbase2d), intent(in), target | mesh2d_atm, | ||
| class(meshbase2d), intent(in), target | mesh2d_ocn ) |
Definition at line 60 of file mod_cpl_vars.F90.
| procedure mod_cpl_vars::couplervars::final | ( | class(couplervars), intent(inout) | this | ) |
Definition at line 61 of file mod_cpl_vars.F90.
| procedure mod_cpl_vars::couplervars::putatm | ( | class(couplervars), intent(inout) | this, |
| type(meshfield3d), intent(in), target | atm_ddens, | ||
| type(meshfield3d), intent(in), target | atm_momz, | ||
| type(meshfield3d), intent(in), target | atm_momx, | ||
| type(meshfield3d), intent(in), target | atm_momy, | ||
| type(meshfield3d), intent(in), target | atm_qv, | ||
| type(meshfield3d), intent(in), target | atm_pres, | ||
| type(meshfield3d), intent(in), target | atm_rtot, | ||
| type(meshfield3d), intent(in), target | atm_dens_hyd, | ||
| type(meshfield2d), intent(in), target | sflx_rad_sw_dir_dn, | ||
| type(meshfield2d), intent(in), target | sflx_rad_lw_dif_dn, | ||
| type(meshfield2d), intent(in), target | sflx_engi, | ||
| logical, intent(in) | countup ) |
Put ATM variables to CPL buffer for OCN component.
Definition at line 62 of file mod_cpl_vars.F90.
| procedure mod_cpl_vars::couplervars::putocn | ( | class(couplervars), intent(inout) | this, |
| type(oceanvars), intent(in) | ocn_vars, | ||
| logical, intent(in) | countup ) |
Put OCN variables to CPL buffer for ATM component.
Definition at line 63 of file mod_cpl_vars.F90.
| procedure mod_cpl_vars::couplervars::get_sfc_atm | ( | class(couplervars), intent(inout) | this, |
| type(meshfield2d), intent(inout) | sfc_temp, | ||
| type(meshfield2d), intent(inout) | sfc_albedo, | ||
| type(meshfield2d), intent(inout) | sflx_mw, | ||
| type(meshfield2d), intent(inout) | sflx_mu, | ||
| type(meshfield2d), intent(inout) | sflx_mv, | ||
| type(meshfield2d), intent(inout) | sflx_sh, | ||
| type(meshfield2d), intent(inout) | sflx_lh, | ||
| type(meshfield2d), intent(inout) | sflx_qv ) |
Get SFC variables from CPL buffer for ATM component.
Definition at line 64 of file mod_cpl_vars.F90.
| procedure mod_cpl_vars::couplervars::get_atm_ocn | ( | class(couplervars), intent(inout) | this, |
| type(meshfield2d), intent(inout) | atm_sfc_dens, | ||
| type(meshfield2d), intent(inout) | atm_sfc_pres, | ||
| type(meshfield2d), intent(inout) | atm_temp, | ||
| type(meshfield2d), intent(inout) | atm_pres, | ||
| type(meshfield2d), intent(inout) | atm_w, | ||
| type(meshfield2d), intent(inout) | atm_u, | ||
| type(meshfield2d), intent(inout) | atm_v, | ||
| type(meshfield2d), intent(inout) | atm_qv, | ||
| type(meshfield2d), intent(inout) | rd_sflx_sw_dir, | ||
| type(meshfield2d), intent(inout) | rd_sflx_lw_dif, | ||
| type(meshfield2d), intent(inout) | dz_a ) |
Get ATM variables from CPL buffer for OCN component.
Definition at line 65 of file mod_cpl_vars.F90.
| type(meshfield2d), dimension(:), allocatable mod_cpl_vars::couplervars::ocn_vars |
Definition at line 49 of file mod_cpl_vars.F90.
| type(meshfield2d), dimension(:), allocatable mod_cpl_vars::couplervars::ocn_atm_vars |
Definition at line 51 of file mod_cpl_vars.F90.
| real(rp) mod_cpl_vars::couplervars::cnt_putatm_ocn |
Counter for putting ATM variables to OCN component.
Definition at line 53 of file mod_cpl_vars.F90.
| real(rp) mod_cpl_vars::couplervars::cnt_putocn_atm |
Counter for putting OCN variables to ATM component.
Definition at line 54 of file mod_cpl_vars.F90.
| class(meshbase3d), pointer mod_cpl_vars::couplervars::mesh3d_atm => null() |
Definition at line 56 of file mod_cpl_vars.F90.
| class(meshbase2d), pointer mod_cpl_vars::couplervars::mesh2d_atm => null() |
Definition at line 57 of file mod_cpl_vars.F90.
| class(meshbase2d), pointer mod_cpl_vars::couplervars::mesh2d_ocn => null() |
Definition at line 58 of file mod_cpl_vars.F90.