Changeset 14286 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ISF/isfstp.F90
- Timestamp:
- 2021-01-11T18:30:11+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ISF/isfstp.F90
r14219 r14286 88 88 ze3t(:,:,jk) = e3t(:,:,jk,Kmm) 89 89 END DO 90 CALL isf_tbl_lvl( ht(:,:), ze3t , misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav )90 CALL isf_tbl_lvl( CASTWP(ht(:,:)), ze3t , misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav ) 91 91 #else 92 CALL isf_tbl_lvl( ht(:,:), CASTWP(e3t(:,:,:,Kmm)), misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav )92 CALL isf_tbl_lvl( CASTWP(ht(:,:)), CASTWP(e3t(:,:,:,Kmm)), misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav ) 93 93 #endif 94 94 ! … … 117 117 ze3t(:,:,jk) = e3t(:,:,jk,Kmm) 118 118 END DO 119 CALL isf_tbl_lvl( ht(:,:), ze3t , misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par )119 CALL isf_tbl_lvl( CASTWP(ht(:,:)), ze3t , misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par ) 120 120 #else 121 CALL isf_tbl_lvl( ht(:,:), CASTWP(e3t(:,:,:,Kmm)), misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par )121 CALL isf_tbl_lvl( CASTWP(ht(:,:)), CASTWP(e3t(:,:,:,Kmm)), misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par ) 122 122 #endif 123 123 !
Note: See TracChangeset
for help on using the changeset viewer.