Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/TOP/TRP/trcsbc.F90
- Timestamp:
- 2020-12-18T18:52:57+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/TOP/TRP/trcsbc.F90
r14086 r14219 32 32 # include "do_loop_substitute.h90" 33 33 # include "domzgr_substitute.h90" 34 # include "single_precision_substitute.h90" 34 35 !!---------------------------------------------------------------------- 35 36 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 62 63 INTEGER, INTENT(in ) :: kt ! ocean time-step index 63 64 INTEGER, INTENT(in ) :: Kmm, Krhs ! time level indices 64 REAL( wp), DIMENSION(jpi,jpj,jpk,jptra,jpt), INTENT(inout) :: ptr ! passive tracers and RHS of tracer equation65 REAL(dp), DIMENSION(jpi,jpj,jpk,jptra,jpt), INTENT(inout) :: ptr ! passive tracers and RHS of tracer equation 65 66 ! 66 67 INTEGER :: ji, jj, jn ! dummy loop indices … … 189 190 IF( sn_cfctl%l_prttrc ) THEN 190 191 WRITE(charout, FMT="('sbc ')") ; CALL prt_ctl_info( charout, cdcomp = 'top' ) 191 CALL prt_ctl( tab4d_1= ptr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' )192 CALL prt_ctl( tab4d_1=CASTWP(ptr(:,:,:,:,Krhs)), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' ) 192 193 ENDIF 193 194 IF( l_trdtrc ) DEALLOCATE( ztrtrd )
Note: See TracChangeset
for help on using the changeset viewer.