Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRA/trasbc.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/trasbc.F90
r14986 r15540 79 79 INTEGER :: ji, jj, jk, jn ! dummy loop indices 80 80 INTEGER :: ikt, ikb ! local integers 81 REAL(wp) :: zfact, z1_e3t, zdep, ztim ! local scalar 82 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdt, ztrds 81 REAL(wp) :: zfact, zdep! local scalar 82 REAL(dp) :: z1_e3t, ztim! local scalar 83 REAL(dp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdt, ztrds 83 84 !!---------------------------------------------------------------------- 84 85 ! … … 217 218 ENDIF 218 219 ! 219 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1= CASTWP(pts(:,:,:,jp_tem,Krhs)), clinfo1=' sbc - Ta: ', mask1=tmask, &220 & tab3d_2= CASTWP(pts(:,:,:,jp_sal,Krhs)), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' )220 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pts(:,:,:,jp_tem,Krhs), clinfo1=' sbc - Ta: ', mask1=tmask, & 221 & tab3d_2=pts(:,:,:,jp_sal,Krhs), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 221 222 ! 222 223 IF( ln_timing ) CALL timing_stop('tra_sbc')
Note: See TracChangeset
for help on using the changeset viewer.