Functions/Subroutines | |
subroutine | init_orbit |
subroutine | compute_coszen (nx_block, ny_block, icells, indxi, indxj, tlat, tlon, coszen, dt) |
Variables | |
integer(kind=int_kind) | iyear_AD |
real(kind=dbl_kind) | eccen |
real(kind=dbl_kind) | obliqr |
real(kind=dbl_kind) | lambm0 |
real(kind=dbl_kind) | mvelpp |
real(kind=dbl_kind) | obliq |
real(kind=dbl_kind) | mvelp |
real(kind=dbl_kind) | delta |
real(kind=dbl_kind) | eccf |
logical(kind=log_kind) | log_print |
subroutine ice_orbital::compute_coszen | ( | integer (kind=int_kind),intent(in) | nx_block, | |
integer (kind=int_kind),intent(in) | ny_block, | |||
integer (kind=int_kind),intent(in) | icells, | |||
integer (kind=int_kind),dimension (nx_block*ny_block) | indxi, | |||
integer (kind=int_kind),dimension (nx_block*ny_block) | indxj, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | tlat, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) | tlon, | |||
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout) | coszen, | |||
real (kind=dbl_kind),intent(in) | dt | |||
) |
Definition at line 96 of file ice_orbital.F90.
subroutine ice_orbital::init_orbit | ( | ) |
Definition at line 64 of file ice_orbital.F90.
real(kind=dbl_kind) ice_orbital::delta |
Definition at line 48 of file ice_orbital.F90.
real(kind=dbl_kind) ice_orbital::eccen |
Definition at line 40 of file ice_orbital.F90.
real(kind=dbl_kind) ice_orbital::eccf |
Definition at line 49 of file ice_orbital.F90.
integer (kind=int_kind) ice_orbital::iyear_AD |
Definition at line 38 of file ice_orbital.F90.
real(kind=dbl_kind) ice_orbital::lambm0 |
Definition at line 42 of file ice_orbital.F90.
logical(kind=log_kind) ice_orbital::log_print |
Definition at line 51 of file ice_orbital.F90.
real(kind=dbl_kind) ice_orbital::mvelp |
Definition at line 47 of file ice_orbital.F90.
real(kind=dbl_kind) ice_orbital::mvelpp |
Definition at line 44 of file ice_orbital.F90.
real(kind=dbl_kind) ice_orbital::obliq |
Definition at line 46 of file ice_orbital.F90.
real(kind=dbl_kind) ice_orbital::obliqr |
Definition at line 41 of file ice_orbital.F90.