Oasis3 4.0.2
|
Functions/Subroutines | |
subroutine | angel (cd_grd_name, id_grd_size, rda_sin_alpha, rda_cos_alpha) |
subroutine | loc2spher (cd_grd_name, id_grd_size, rda_trans, nc_fileid) |
subroutine | spher2loc (cd_grd_name, id_grd_size, rda_trans, nc_fileid) |
subroutine | spher2car (rda_grd_lon, rda_grd_lat, id_grd_size, rda_trans, nc_fileid) |
subroutine | car2spher (rda_grd_lon, rda_grd_lat, id_grd_size, rda_trans, nc_fileid) |
Variables | |
REAL(KIND=dbl_kind), parameter | rp_deg2rad = pi/180. |
subroutine rotations::angel | ( | CHARACTER (LEN=8),intent(in) | cd_grd_name, |
INTEGER (KIND=int_kind),intent(in) | id_grd_size, | ||
REAL (KIND=dbl_kind),dimension(id_grd_size),intent(out) | rda_sin_alpha, | ||
REAL (KIND=dbl_kind),dimension(id_grd_size),intent(out) | rda_cos_alpha | ||
) |
Definition at line 33 of file rotations.F90.
References mod_parameter::jpeight, mod_unitncdf::lncdfgrd, mod_unitncdf::nc_grdid, and rp_deg2rad.
Referenced by loc2spher(), and spher2loc().
subroutine rotations::car2spher | ( | REAL (KIND=dbl_kind),dimension(id_grd_size),intent(in) | rda_grd_lon, |
REAL (KIND=dbl_kind),dimension(id_grd_size),intent(in) | rda_grd_lat, | ||
INTEGER (KIND=int_kind),intent(in) | id_grd_size, | ||
REAL (KIND=dbl_kind),dimension(id_grd_size,3,3),intent(out) | rda_trans, | ||
INTEGER (KIND=int_kind),intent(in) | nc_fileid | ||
) |
Definition at line 394 of file rotations.F90.
References rp_deg2rad.
Referenced by scriprmp_vector().
subroutine rotations::loc2spher | ( | CHARACTER (LEN=8),intent(in) | cd_grd_name, |
INTEGER (KIND=int_kind),intent(in) | id_grd_size, | ||
REAL (KIND=dbl_kind),dimension(id_grd_size,2,2),intent(out) | rda_trans, | ||
INTEGER (KIND=int_kind),intent(in) | nc_fileid | ||
) |
Definition at line 116 of file rotations.F90.
References angel().
Referenced by scriprmp_vector().
subroutine rotations::spher2car | ( | REAL (KIND=dbl_kind),dimension(id_grd_size),intent(in) | rda_grd_lon, |
REAL (KIND=dbl_kind),dimension(id_grd_size),intent(in) | rda_grd_lat, | ||
INTEGER (KIND=int_kind),intent(in) | id_grd_size, | ||
REAL (KIND=dbl_kind),dimension(id_grd_size,3,2),intent(out) | rda_trans, | ||
INTEGER (KIND=int_kind),intent(in) | nc_fileid | ||
) |
Definition at line 294 of file rotations.F90.
References rp_deg2rad.
Referenced by scriprmp_vector().
subroutine rotations::spher2loc | ( | CHARACTER (LEN=8),intent(in) | cd_grd_name, |
INTEGER (KIND=int_kind),intent(in) | id_grd_size, | ||
REAL (KIND=dbl_kind),dimension(id_grd_size,2,2),intent(out) | rda_trans, | ||
INTEGER (KIND=int_kind),intent(in) | nc_fileid | ||
) |
Definition at line 207 of file rotations.F90.
References angel().
Referenced by scriprmp_vector().
REAL (KIND=dbl_kind),parameter rotations::rp_deg2rad = pi/180. |
Definition at line 15 of file rotations.F90.
Referenced by angel(), car2spher(), and spher2car().