Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/BDY/bdytra.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/OCE/BDY/bdytra.F90
r14072 r14219 49 49 INTEGER , INTENT(in) :: kt ! Main time step counter 50 50 INTEGER , INTENT(in) :: Kbb, Kaa ! time level indices 51 REAL( wp), DIMENSION(jpi,jpj,jpk,jpts,jpt), INTENT(inout) :: pts ! tracer fields51 REAL(dp), DIMENSION(jpi,jpj,jpk,jpts,jpt), INTENT(inout) :: pts ! tracer fields 52 52 ! 53 53 INTEGER :: ib_bdy, jn, igrd, ir ! Loop indeces … … 118 118 !!---------------------------------------------------------------------- 119 119 TYPE(OBC_INDEX), INTENT(in) :: idx ! OBC indices 120 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pt ! tracer trend120 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pt ! tracer trend 121 121 INTEGER, INTENT(in) :: jpa ! TRA index 122 122 LOGICAL, INTENT(in) :: llrim0 ! indicate if rim 0 is treated … … 149 149 INTEGER , INTENT(in) :: kt ! time step 150 150 INTEGER , INTENT(in) :: Kbb, Krhs ! time level indices 151 REAL( wp), DIMENSION(jpi,jpj,jpk,jpts,jpt), INTENT(inout) :: pts ! active tracers and RHS of tracer equation151 REAL(dp), DIMENSION(jpi,jpj,jpk,jpts,jpt), INTENT(inout) :: pts ! active tracers and RHS of tracer equation 152 152 ! 153 153 REAL(wp) :: zwgt ! boundary weight
Note: See TracChangeset
for help on using the changeset viewer.