Changeset 15648 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/TOP/PISCES/SED
- 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/SED/trcdmp_sed.F90
r14219 r15648 109 109 WRITE(charout, FMT="('dmp ')") 110 110 CALL prt_ctl_info( charout, cdcomp = 'top' ) 111 CALL prt_ctl( tab4d_1=CAST WP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' )111 CALL prt_ctl( tab4d_1=CASTDP(tr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' ) 112 112 ENDIF 113 113 !
Note: See TracChangeset
for help on using the changeset viewer.