- Timestamp:
- 2020-11-18T19:02:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/TRA/eosbn2.F90
r13553 r13819 234 234 !!---------------------------------------------------------------------- 235 235 INTEGER , INTENT(in ) :: ktts, ktrd, ktdep 236 REAL(wp), DIMENSION( ST_2DT(ktts) ,JPK,JPTS), INTENT(in ) :: pts ! 1 : potential temperature [Celsius]236 REAL(wp), DIMENSION(A2D_T(ktts) ,JPK,JPTS), INTENT(in ) :: pts ! 1 : potential temperature [Celsius] 237 237 ! ! 2 : salinity [psu] 238 REAL(wp), DIMENSION( ST_2DT(ktrd) ,JPK ), INTENT( out) :: prd ! in situ density [-]239 REAL(wp), DIMENSION( ST_2DT(ktdep),JPK ), INTENT(in ) :: pdep ! depth [m]238 REAL(wp), DIMENSION(A2D_T(ktrd) ,JPK ), INTENT( out) :: prd ! in situ density [-] 239 REAL(wp), DIMENSION(A2D_T(ktdep),JPK ), INTENT(in ) :: pdep ! depth [m] 240 240 ! 241 241 INTEGER :: ji, jj, jk ! dummy loop indices … … 334 334 !!---------------------------------------------------------------------- 335 335 INTEGER , INTENT(in ) :: ktts, ktrd, ktrhop, ktdep 336 REAL(wp), DIMENSION( ST_2DT(ktts) ,JPK,JPTS), INTENT(in ) :: pts ! 1 : potential temperature [Celsius]336 REAL(wp), DIMENSION(A2D_T(ktts) ,JPK,JPTS), INTENT(in ) :: pts ! 1 : potential temperature [Celsius] 337 337 ! ! 2 : salinity [psu] 338 REAL(wp), DIMENSION( ST_2DT(ktrd) ,JPK ), INTENT( out) :: prd ! in situ density [-]339 REAL(wp), DIMENSION( ST_2DT(ktrhop),JPK ), INTENT( out) :: prhop ! potential density (surface referenced)340 REAL(wp), DIMENSION( ST_2DT(ktdep) ,JPK ), INTENT(in ) :: pdep ! depth [m]338 REAL(wp), DIMENSION(A2D_T(ktrd) ,JPK ), INTENT( out) :: prd ! in situ density [-] 339 REAL(wp), DIMENSION(A2D_T(ktrhop),JPK ), INTENT( out) :: prhop ! potential density (surface referenced) 340 REAL(wp), DIMENSION(A2D_T(ktdep) ,JPK ), INTENT(in ) :: pdep ! depth [m] 341 341 ! 342 342 INTEGER :: ji, jj, jk, jsmp ! dummy loop indices … … 500 500 !!---------------------------------------------------------------------- 501 501 INTEGER , INTENT(in ) :: ktts, ktdep, ktrd 502 REAL(wp), DIMENSION( ST_2DT(ktts),JPTS), INTENT(in ) :: pts ! 1 : potential temperature [Celsius]502 REAL(wp), DIMENSION(A2D_T(ktts),JPTS), INTENT(in ) :: pts ! 1 : potential temperature [Celsius] 503 503 ! ! 2 : salinity [psu] 504 REAL(wp), DIMENSION( ST_2DT(ktdep) ), INTENT(in ) :: pdep ! depth [m]505 REAL(wp), DIMENSION( ST_2DT(ktrd) ), INTENT( out) :: prd ! in situ density504 REAL(wp), DIMENSION(A2D_T(ktdep) ), INTENT(in ) :: pdep ! depth [m] 505 REAL(wp), DIMENSION(A2D_T(ktrd) ), INTENT( out) :: prd ! in situ density 506 506 ! 507 507 INTEGER :: ji, jj, jk ! dummy loop indices … … 598 598 INTEGER , INTENT(in ) :: Kmm ! time level index 599 599 INTEGER , INTENT(in ) :: ktts, ktab 600 REAL(wp), DIMENSION( ST_2DT(ktts),JPK,JPTS), INTENT(in ) :: pts ! pot. temperature & salinity601 REAL(wp), DIMENSION( ST_2DT(ktab),JPK,JPTS), INTENT( out) :: pab ! thermal/haline expansion ratio600 REAL(wp), DIMENSION(A2D_T(ktts),JPK,JPTS), INTENT(in ) :: pts ! pot. temperature & salinity 601 REAL(wp), DIMENSION(A2D_T(ktab),JPK,JPTS), INTENT( out) :: pab ! thermal/haline expansion ratio 602 602 ! 603 603 INTEGER :: ji, jj, jk ! dummy loop indices … … 714 714 INTEGER , INTENT(in ) :: Kmm ! time level index 715 715 INTEGER , INTENT(in ) :: ktts, ktdep, ktab 716 REAL(wp), DIMENSION( ST_2DT(ktts),JPTS), INTENT(in ) :: pts ! pot. temperature & salinity717 REAL(wp), DIMENSION( ST_2DT(ktdep) ), INTENT(in ) :: pdep ! depth [m]718 REAL(wp), DIMENSION( ST_2DT(ktab),JPTS), INTENT( out) :: pab ! thermal/haline expansion ratio716 REAL(wp), DIMENSION(A2D_T(ktts),JPTS), INTENT(in ) :: pts ! pot. temperature & salinity 717 REAL(wp), DIMENSION(A2D_T(ktdep) ), INTENT(in ) :: pdep ! depth [m] 718 REAL(wp), DIMENSION(A2D_T(ktab),JPTS), INTENT( out) :: pab ! thermal/haline expansion ratio 719 719 ! 720 720 INTEGER :: ji, jj, jk ! dummy loop indices … … 937 937 INTEGER , INTENT(in ) :: ktab, ktn2 938 938 REAL(wp), DIMENSION(jpi,jpj, jpk,jpts), INTENT(in ) :: pts ! pot. temperature and salinity [Celsius,psu] 939 REAL(wp), DIMENSION( ST_2DT(ktab),JPK,JPTS), INTENT(in ) :: pab ! thermal/haline expansion coef. [Celsius-1,psu-1]940 REAL(wp), DIMENSION( ST_2DT(ktn2),JPK ), INTENT( out) :: pn2 ! Brunt-Vaisala frequency squared [1/s^2]939 REAL(wp), DIMENSION(A2D_T(ktab),JPK,JPTS), INTENT(in ) :: pab ! thermal/haline expansion coef. [Celsius-1,psu-1] 940 REAL(wp), DIMENSION(A2D_T(ktn2),JPK ), INTENT( out) :: pn2 ! Brunt-Vaisala frequency squared [1/s^2] 941 941 ! 942 942 INTEGER :: ji, jj, jk ! dummy loop indices … … 1047 1047 REAL(wp), DIMENSION(jpi,jpj) , INTENT(in ) :: psal ! salinity [psu] 1048 1048 REAL(wp), DIMENSION(jpi,jpj) , INTENT(in ), OPTIONAL :: pdep ! depth [m] 1049 REAL(wp), DIMENSION( ST_2DT(kttf)), INTENT(out ) :: ptf ! freezing temperature [Celsius]1049 REAL(wp), DIMENSION(A2D_T(kttf)), INTENT(out ) :: ptf ! freezing temperature [Celsius] 1050 1050 ! 1051 1051 INTEGER :: ji, jj ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.