Changeset 15648 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zopt.F90
- Timestamp:
- 2022-01-17T12:35:51+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P2Z/p2zopt.F90
r14219 r15648 127 127 WRITE(charout, FMT="('opt')") 128 128 CALL prt_ctl_info( charout, cdcomp = 'top' ) 129 CALL prt_ctl( tab4d_1=CAST WP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm )129 CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Kmm)), mask1=tmask, clinfo=ctrcnm ) 130 130 ENDIF 131 131 !
Note: See TracChangeset
for help on using the changeset viewer.