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