Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF/zdfddm.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/zdfddm.F90
r14986 r15540 71 71 INTEGER, INTENT(in ) :: kt ! ocean time-step index 72 72 INTEGER, INTENT(in ) :: Kmm ! ocean time level index 73 REAL( wp), DIMENSION(:,:,:), INTENT(inout) :: p_avm ! Kz on momentum (w-points)74 REAL( wp), DIMENSION(:,:,:), INTENT(inout) :: p_avt ! Kz on temperature (w-points)75 REAL( wp), DIMENSION(:,:,:), INTENT( out) :: p_avs ! Kz on salinity (w-points)73 REAL(dp), DIMENSION(:,:,:), INTENT(inout) :: p_avm ! Kz on momentum (w-points) 74 REAL(dp), DIMENSION(:,:,:), INTENT(inout) :: p_avt ! Kz on temperature (w-points) 75 REAL(dp), DIMENSION(:,:,:), INTENT( out) :: p_avs ! Kz on salinity (w-points) 76 76 ! 77 77 INTEGER :: ji, jj , jk ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.