Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_averg_h2d.F90

Timestamp:

2020-12-18T18:52:57+01:00 (4 years ago)

Author:

mcastril

Message:

Add Mixed Precision support by Oriol Tintó

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_averg_h2d.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_averg_h2d.F90

@@ -42 +42 @@
       &   obs_avg_h2d_init, & ! Set up weights for the averaging
       &   obs_max_fpsize      ! Works out the maximum number of grid points required for the averaging
+
+   !! * Substitutions
+#  include "single_precision_substitute.h90"
 
    !!----------------------------------------------------------------------
@@ -603 +606 @@
             !If the scales are specified in degrees, work out the max 
             !distance (metres) in x/y directions
-            CALL obs_deg2dist( jpi, jpj, glamt, gphit, &
+            CALL obs_deg2dist( jpi, jpj, CASTWP(glamt), CASTWP(gphit), &
                &               plamscl, pphiscl, zlamscl_m, zphiscl_m )
          ELSE