Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_sstbias.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_sstbias.F90
r13286 r14219 36 36 PRIVATE 37 37 PUBLIC obs_app_sstbias ! Read the altimeter bias 38 !! * Substitutions 39 # include "single_precision_substitute.h90" 40 38 41 CONTAINS 39 42 SUBROUTINE obs_app_sstbias( sstdata, k2dint, knumtypes, & … … 168 171 END DO 169 172 CALL obs_int_comm_2d( 2, 2, sstdata%nsurf, jpi, jpj, & 170 & igrdi, igrdj, glamt, zglam )173 & igrdi, igrdj, CASTWP(glamt), zglam ) 171 174 CALL obs_int_comm_2d( 2, 2, sstdata%nsurf, jpi, jpj, & 172 & igrdi, igrdj, gphit, zgphi )175 & igrdi, igrdj, CASTWP(gphit), zgphi ) 173 176 CALL obs_int_comm_2d( 2, 2, sstdata%nsurf, jpi, jpj, & 174 177 & igrdi, igrdj, tmask(:,:,1), zmask )
Note: See TracChangeset
for help on using the changeset viewer.