Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ISF/isfcav.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/ISF/isfcav.F90
r14644 r15540 61 61 !!--------------------------------------------------------------------- 62 62 !!-------------------------- OUT -------------------------------------- 63 REAL( wp), DIMENSION(jpi,jpj) , INTENT(inout) :: pqfwf ! ice shelf melt (>0 out)64 REAL( wp), DIMENSION(jpi,jpj,jpts), INTENT(inout) :: ptsc ! T & S ice shelf cavity contents63 REAL(dp), DIMENSION(jpi,jpj) , INTENT(inout) :: pqfwf ! ice shelf melt (>0 out) 64 REAL(dp), DIMENSION(jpi,jpj,jpts), INTENT(inout) :: ptsc ! T & S ice shelf cavity contents 65 65 !!-------------------------- IN -------------------------------------- 66 66 INTEGER, INTENT(in) :: Kmm ! ocean time level index … … 69 69 LOGICAL :: lit 70 70 INTEGER :: nit 71 REAL( wp) :: zerr72 REAL( wp), DIMENSION(jpi,jpj) :: zqlat, zqoce, zqhc, zqh ! heat fluxes73 REAL( wp), DIMENSION(jpi,jpj) :: zqoce_b !74 REAL( wp), DIMENSION(jpi,jpj) :: zgammat, zgammas ! exchange coeficient75 REAL( wp), DIMENSION(jpi,jpj) :: zttbl, zstbl ! temp. and sal. in top boundary layer71 REAL(dp) :: zerr 72 REAL(dp), DIMENSION(jpi,jpj) :: zqlat, zqoce, zqhc, zqh ! heat fluxes 73 REAL(dp), DIMENSION(jpi,jpj) :: zqoce_b ! 74 REAL(dp), DIMENSION(jpi,jpj) :: zgammat, zgammas ! exchange coeficient 75 REAL(dp), DIMENSION(jpi,jpj) :: zttbl, zstbl ! temp. and sal. in top boundary layer 76 76 !!--------------------------------------------------------------------- 77 77 !
Note: See TracChangeset
for help on using the changeset viewer.