Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRD/trdmxl.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/TRD/trdmxl.F90
r14644 r15540 97 97 !! potential energy, and/or mixed layer budget. 98 98 !!---------------------------------------------------------------------- 99 REAL( wp), DIMENSION(:,:,:), INTENT(inout) :: ptrdx ! Temperature or U trend100 REAL( wp), DIMENSION(:,:,:), INTENT(inout) :: ptrdy ! Salinity or V trend99 REAL(dp), DIMENSION(:,:,:), INTENT(inout) :: ptrdx ! Temperature or U trend 100 REAL(dp), DIMENSION(:,:,:), INTENT(inout) :: ptrdy ! Salinity or V trend 101 101 INTEGER , INTENT(in ) :: ktrd ! tracer trend index 102 102 INTEGER , INTENT(in ) :: kt ! time step index … … 213 213 !!---------------------------------------------------------------------- 214 214 REAL(wp), DIMENSION(:,:,:), INTENT(in ) :: ptrd ! trend at kt 215 REAL( wp), DIMENSION(:,:,:), INTENT(inout) :: ptrdm ! cumulative trends at kt215 REAL(dp), DIMENSION(:,:,:), INTENT(inout) :: ptrdm ! cumulative trends at kt 216 216 INTEGER , INTENT(in ) :: kt ! time step index 217 217 !!---------------------------------------------------------------------- … … 250 250 INTEGER , INTENT( in ) :: ktrd ! ocean trend index 251 251 CHARACTER(len=2) , INTENT( in ) :: ctype ! 2D surface/bottom or 3D interior physics 252 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT( in ) :: pttrdmxl ! temperature trend253 REAL( wp), DIMENSION(jpi,jpj,jpk), INTENT( in ) :: pstrdmxl ! salinity trend252 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT( in ) :: pttrdmxl ! temperature trend 253 REAL(dp), DIMENSION(jpi,jpj,jpk), INTENT( in ) :: pstrdmxl ! salinity trend 254 254 ! 255 255 INTEGER :: ji, jj, jk, isum 256 REAL( wp), DIMENSION(jpi,jpj) :: zvlmsk256 REAL(dp), DIMENSION(jpi,jpj) :: zvlmsk 257 257 !!---------------------------------------------------------------------- 258 258 … … 329 329 !!---------------------------------------------------------------------- 330 330 INTEGER , INTENT(in ) :: kt ! ocean time-step index 331 REAL( wp), INTENT(in ) :: p2dt ! time step [s]331 REAL(dp), INTENT(in ) :: p2dt ! time step [s] 332 332 ! 333 333 INTEGER :: ji, jj, jk, jl, ik, it, itmod 334 334 LOGICAL :: lldebug = .TRUE. 335 REAL( wp) :: zavt, zfn, zfn2335 REAL(dp) :: zavt, zfn, zfn2 336 336 ! ! z(ts)mltot : dT/dt over the anlysis window (including Asselin) 337 337 ! ! z(ts)mlres : residual = dh/dt entrainment term 338 REAL( wp), DIMENSION(jpi,jpj ) :: ztmltot , zsmltot , ztmlres , zsmlres , ztmlatf , zsmlatf339 REAL( wp), DIMENSION(jpi,jpj ) :: ztmltot2, zsmltot2, ztmlres2, zsmlres2, ztmlatf2, zsmlatf2, ztmltrdm2, zsmltrdm2340 REAL( wp), DIMENSION(jpi,jpj,jpk) :: ztmltrd2, zsmltrd2 ! only needed for mean diagnostics338 REAL(dp), DIMENSION(jpi,jpj ) :: ztmltot , zsmltot , ztmlres , zsmlres , ztmlatf , zsmlatf 339 REAL(dp), DIMENSION(jpi,jpj ) :: ztmltot2, zsmltot2, ztmlres2, zsmlres2, ztmlatf2, zsmlatf2, ztmltrdm2, zsmltrdm2 340 REAL(dp), DIMENSION(jpi,jpj,jpk) :: ztmltrd2, zsmltrd2 ! only needed for mean diagnostics 341 341 !!---------------------------------------------------------------------- 342 342 … … 726 726 INTEGER :: inum ! logical unit 727 727 INTEGER :: ios ! local integer 728 REAL( wp) :: zjulian, zsto, zout728 REAL(dp) :: zjulian, zsto, zout 729 729 CHARACTER (LEN=40) :: clop 730 730 CHARACTER (LEN=12) :: clmxl, cltu, clsu
Note: See TracChangeset
for help on using the changeset viewer.