Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/grt_cir_dis_saa.h90
- 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/OBS/grt_cir_dis_saa.h90
r10068 r15540 5 5 !!---------------------------------------------------------------------- 6 6 7 REAL(KIND= wp) FUNCTION grt_cir_dis_saa( pa, pb, pc )7 REAL(KIND=dp) FUNCTION grt_cir_dis_saa( pa, pb, pc ) 8 8 !!---------------------------------------------------------------------- 9 9 !! *** FUNCTION grt_cir_dis_saa *** … … 23 23 24 24 !! * Arguments 25 REAL(KIND= wp) :: pa ! lon1 - lon226 REAL(KIND= wp) :: pb ! lat1 - lat227 REAL(KIND= wp) :: pc ! cos(lat2)25 REAL(KIND=dp) :: pa ! lon1 - lon2 26 REAL(KIND=dp) :: pb ! lat1 - lat2 27 REAL(KIND=dp) :: pc ! cos(lat2) 28 28 29 29 grt_cir_dis_saa = SQRT( pa * pa + ( pb * pc )**2 )
Note: See TracChangeset
for help on using the changeset viewer.