Changeset 14200 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ISF/isfstp.F90
- Timestamp:
- 2020-12-17T15:36:44+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/ISF/isfstp.F90
r14064 r14200 87 87 ze3t(:,:,jk) = e3t(:,:,jk,Kmm) 88 88 END DO 89 CALL isf_tbl_lvl( ht(:,:), ze3t , misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav )89 CALL isf_tbl_lvl( ht(:,:), ze3t , misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav ) 90 90 #else 91 CALL isf_tbl_lvl( ht(:,:), e3t , misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav )91 CALL isf_tbl_lvl( ht(:,:), e3t(:,:,:,Kmm), misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav ) 92 92 #endif 93 93 ! … … 116 116 ze3t(:,:,jk) = e3t(:,:,jk,Kmm) 117 117 END DO 118 CALL isf_tbl_lvl( ht(:,:), ze3t , misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par )118 CALL isf_tbl_lvl( ht(:,:), ze3t , misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par ) 119 119 #else 120 CALL isf_tbl_lvl( ht(:,:), e3t , misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par )120 CALL isf_tbl_lvl( ht(:,:), e3t(:,:,:,Kmm), misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par ) 121 121 #endif 122 122 !
Note: See TracChangeset
for help on using the changeset viewer.