Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_read_altbias.F90
- Timestamp:
- 2020-12-18T18:52:57+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_read_altbias.F90
r13286 r14219 41 41 PUBLIC obs_rea_altbias ! Read the altimeter bias 42 42 43 !! * Substitutions 44 # include "single_precision_substitute.h90" 45 46 43 47 !!---------------------------------------------------------------------- 44 48 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 162 166 163 167 CALL obs_int_comm_2d( 2, 2, sladata%nsurf, jpi, jpj, & 164 & igrdi, igrdj, glamt, zglam )165 CALL obs_int_comm_2d( 2, 2, sladata%nsurf, jpi, jpj, & 166 & igrdi, igrdj, gphit, zgphi )168 & igrdi, igrdj, CASTWP(glamt), zglam ) 169 CALL obs_int_comm_2d( 2, 2, sladata%nsurf, jpi, jpj, & 170 & igrdi, igrdj, CASTWP(gphit), zgphi ) 167 171 CALL obs_int_comm_2d( 2, 2, sladata%nsurf, jpi, jpj, & 168 172 & igrdi, igrdj, tmask(:,:,1), zmask )
Note: See TracChangeset
for help on using the changeset viewer.