Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRA/trazdf.F90
- Timestamp:
- 2021-11-26T12:27:56+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRA/trazdf.F90
r14986 r15540 59 59 ! 60 60 INTEGER :: ji, jj, jk ! Dummy loop indices 61 REAL( wp), DIMENSION(:,:,:), ALLOCATABLE :: ztrdt, ztrds ! 3D workspace61 REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: ztrdt, ztrds ! 3D workspace 62 62 !!--------------------------------------------------------------------- 63 63 ! … … 110 110 ENDIF 111 111 ! ! print mean trends (used for debugging) 112 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= CASTWP(pts(:,:,:,jp_tem,Kaa)), clinfo1=' zdf - Ta: ', mask1=tmask, &113 & tab3d_2= CASTWP(pts(:,:,:,jp_sal,Kaa)), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' )112 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pts(:,:,:,jp_tem,Kaa), clinfo1=' zdf - Ta: ', mask1=tmask, & 113 & tab3d_2=pts(:,:,:,jp_sal,Kaa), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 114 114 ! 115 115 IF( ln_timing ) CALL timing_stop('tra_zdf') … … 143 143 CHARACTER(len=3) , INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) 144 144 INTEGER , INTENT(in ) :: kjpt ! number of tracers 145 REAL( wp) , INTENT(in ) :: p2dt ! tracer time-step145 REAL(dp) , INTENT(in ) :: p2dt ! tracer time-step 146 146 REAL(dp), DIMENSION(jpi,jpj,jpk,kjpt,jpt), INTENT(inout) :: pt ! tracers and RHS of tracer equation 147 147 !
Note: See TracChangeset
for help on using the changeset viewer.