Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF/zdfswm.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/ZDF/zdfswm.F90
r14986 r15540 55 55 INTEGER , INTENT(in ) :: kt ! ocean time step 56 56 INTEGER , INTENT(in ) :: Kmm ! time level index 57 REAL( wp), DIMENSION(:,:,:) , INTENT(inout) :: p_avm ! momentum Kz (w-points)58 REAL( wp), DIMENSION(:,:,:) , INTENT(inout) :: p_avt, p_avs ! tracer Kz (w-points)57 REAL(dp), DIMENSION(:,:,:) , INTENT(inout) :: p_avm ! momentum Kz (w-points) 58 REAL(dp), DIMENSION(:,:,:) , INTENT(inout) :: p_avt, p_avs ! tracer Kz (w-points) 59 59 ! 60 60 INTEGER :: ji, jj, jk ! dummy loop indices 61 REAL( wp):: zcoef, zqb ! local scalar61 REAL(dp):: zcoef, zqb ! local scalar 62 62 !!--------------------------------------------------------------------- 63 63 !
Note: See TracChangeset
for help on using the changeset viewer.