Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/USR/usrdef_hgr.F90
- Timestamp:
- 2021-11-26T12:27:56+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/USR/usrdef_hgr.F90
r14644 r15540 61 61 REAL(dp), DIMENSION(:,:), INTENT(out) :: plamt 62 62 REAL(dp), DIMENSION(:,:), INTENT(out) :: plamf 63 REAL( wp), DIMENSION(:,:), INTENT(out) :: plamu, plamv ! longitude outputs [degrees]63 REAL(dp), DIMENSION(:,:), INTENT(out) :: plamu, plamv ! longitude outputs [degrees] 64 64 REAL(dp), DIMENSION(:,:), INTENT(out) :: pphit 65 65 REAL(dp), DIMENSION(:,:), INTENT(out) :: pphif 66 REAL( wp), DIMENSION(:,:), INTENT(out) :: pphiu, pphiv ! latitude outputs [degrees]66 REAL(dp), DIMENSION(:,:), INTENT(out) :: pphiu, pphiv ! latitude outputs [degrees] 67 67 INTEGER , INTENT(out) :: kff ! =1 Coriolis parameter computed here, =0 otherwise 68 REAL( wp), DIMENSION(:,:), INTENT(out) :: pff_f, pff_t ! Coriolis factor at f-point [1/s]68 REAL(dp), DIMENSION(:,:), INTENT(out) :: pff_f, pff_t ! Coriolis factor at f-point [1/s] 69 69 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe1t 70 70 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe1u 71 71 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe1f 72 REAL( wp), DIMENSION(:,:), INTENT(out) :: pe1v ! i-scale factors [m]72 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe1v ! i-scale factors [m] 73 73 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe2t 74 74 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe2v 75 75 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe2f 76 REAL( wp), DIMENSION(:,:), INTENT(out) :: pe2u ! j-scale factors [m]76 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe2u ! j-scale factors [m] 77 77 INTEGER , INTENT(out) :: ke1e2u_v ! =1 u- & v-surfaces computed here, =0 otherwise 78 REAL( wp), DIMENSION(:,:), INTENT(out) :: pe1e2u, pe1e2v ! u- & v-surfaces (if reduction in strait) [m2]78 REAL(dp), DIMENSION(:,:), INTENT(out) :: pe1e2u, pe1e2v ! u- & v-surfaces (if reduction in strait) [m2] 79 79 ! 80 80 INTEGER :: ji, jj ! dummy loop indices 81 REAL( wp) :: zlam1, zlam0, zcos_alpha, zim1 , zjm1 , ze1 , ze1deg, zf0 ! local scalars82 REAL( wp) :: zphi1, zphi0, zsin_alpha, zim05, zjm05, zbeta, znorme ! - -81 REAL(dp) :: zlam1, zlam0, zcos_alpha, zim1 , zjm1 , ze1 , ze1deg, zf0 ! local scalars 82 REAL(dp) :: zphi1, zphi0, zsin_alpha, zim05, zjm05, zbeta, znorme ! - - 83 83 !!------------------------------------------------------------------------------- 84 84 !
Note: See TracChangeset
for help on using the changeset viewer.