Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC/ocealb.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/SBC/ocealb.F90
r10069 r15540 32 32 !! ** Purpose : Computation of the albedo of the ocean 33 33 !!---------------------------------------------------------------------- 34 REAL( wp), DIMENSION(:,:), INTENT(out) :: palb_os ! albedo of ocean under overcast sky35 REAL( wp), DIMENSION(:,:), INTENT(out) :: palb_cs ! albedo of ocean under clear sky34 REAL(dp), DIMENSION(:,:), INTENT(out) :: palb_os ! albedo of ocean under overcast sky 35 REAL(dp), DIMENSION(:,:), INTENT(out) :: palb_cs ! albedo of ocean under clear sky 36 36 !! 37 REAL( wp) :: zcoef38 REAL( wp) :: rmue = 0.40 ! cosine of local solar altitude37 REAL(dp) :: zcoef 38 REAL(dp) :: rmue = 0.40 ! cosine of local solar altitude 39 39 !!---------------------------------------------------------------------- 40 40 !
Note: See TracChangeset
for help on using the changeset viewer.