Changeset 15648 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/P4Z/p5zprod.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/P4Z/p5zprod.F90
r14219 r15648 463 463 WRITE(charout, FMT="('prod')") 464 464 CALL prt_ctl_info( charout, cdcomp = 'top' ) 465 CALL prt_ctl(tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm)465 CALL prt_ctl(tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm) 466 466 ENDIF 467 467 !
Note: See TracChangeset
for help on using the changeset viewer.