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