- Timestamp:
- 2011-03-15T16:27:46+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r2640 r2690 66 66 !!---------------------------------------------------------------------- 67 67 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 68 USE wrk_nemo, ONLY: wrk_3d_6 , wrk_3d_7 ! 3D workspace68 USE wrk_nemo, ONLY: wrk_3d_6 , wrk_3d_7 ! 3D workspace 69 69 !! 70 70 REAL(wp), INTENT(in ), DIMENSION(:,:,:) :: pt_ice ! ice surface temperature (Kelvin) … … 187 187 REAL(wp), DIMENSION(:,:), INTENT(out) :: pa_oce_cs ! albedo of ocean under clear sky 188 188 !! 189 REAL(wp) :: zcoef ! temporaryscalar189 REAL(wp) :: zcoef ! local scalar 190 190 !!---------------------------------------------------------------------- 191 191 !
Note: See TracChangeset
for help on using the changeset viewer.