Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbcssm.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/SBC/sbcssm.F90
r14072 r14219 33 33 34 34 # include "domzgr_substitute.h90" 35 # include "single_precision_substitute.h90" 35 36 !!---------------------------------------------------------------------- 36 37 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 241 242 ssu_m(:,:) = uu(:,:,1,Kbb) 242 243 ssv_m(:,:) = vv(:,:,1,Kbb) 243 IF( l_useCT ) THEN ; sst_m(:,:) = eos_pt_from_ct( ts(:,:,1,jp_tem,Kmm), ts(:,:,1,jp_sal,Kmm) )244 IF( l_useCT ) THEN ; sst_m(:,:) = eos_pt_from_ct( CASTWP(ts(:,:,1,jp_tem,Kmm)), CASTWP(ts(:,:,1,jp_sal,Kmm)) ) 244 245 ELSE ; sst_m(:,:) = ts(:,:,1,jp_tem,Kmm) 245 246 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.