Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_prep.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_prep.F90 (modified) (2 diffs)

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

@@ -32 +32 @@
    PUBLIC   obs_pre_surf     ! First level check and screening of surface obs
    PUBLIC   calc_month_len   ! Calculate the number of days in the months of a year
+
+   !! * Substitutions
+#  include "single_precision_substitute.h90"
+
 
    !!----------------------------------------------------------------------
@@ -151 +155 @@
          &                 surfdata%mi,   surfdata%mj,   & 
          &                 surfdata%rlam, surfdata%rphi, &
-         &                 glamt,        gphit,        &
+         &                 CASTWP(glamt),        CASTWP(gphit),        &
          &                 tmask(:,:,1), surfdata%nqc,  &
          &                 iosdsobs,     ilansobs,     &