Changeset 1109 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90
- Timestamp:
- 2008-06-13T11:59:54+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r1055 r1109 103 103 INTEGER, INTENT(in) :: kico ! ice-ocean stress treatment 104 104 !! 105 INTEGER :: jl ! loop index 105 106 REAL(wp) :: zcoef ! temporary scalar 106 107 REAL(wp), DIMENSION(jpi,jpj,jpl) :: alb_ice_os ! albedo of the ice under overcast sky … … 134 135 CALL albedo_ice( t_su, ht_i, ht_s, alb_ice_cs, alb_ice_os ) ! ... ice albedo 135 136 137 DO jl = 1, jpl 138 t_su(:,:,jl) = t_su(:,:,jl) + rt0 * ( 1. - tmask(:,:,1) ) 139 END DO 136 140 ! Bulk formulea - provides the following fields: 137 141 ! utaui_ice, vtaui_ice : surface ice stress (U- & V-points) [N/m2]
Note: See TracChangeset
for help on using the changeset viewer.