Changeset 5407 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90
- Timestamp:
- 2015-06-11T21:13:22+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90
r5385 r5407 96 96 !! - fr_i : ice fraction 97 97 !! - tn_ice : sea-ice surface temperature 98 !! - alb_ice : sea-ice albedo (l k_cpl=T)98 !! - alb_ice : sea-ice albedo (ln_cpl=T) 99 99 !! 100 100 !! References : Goosse, H. et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90. … … 178 178 179 179 ! computation the solar flux at ocean surface 180 IF( l k_cpl ) THEN180 IF( ln_cpl ) THEN 181 181 zqsr = qsr_tot(ji,jj) + ( fstric(ji,jj) - qsr_ice(ji,jj,1) ) * ( 1.0 - pfrld(ji,jj) ) 182 182 ELSE … … 202 202 ! mass flux at the ocean-atmosphere interface (open ocean fraction = leads area) 203 203 ! ! coupled mode: 204 IF( l k_cpl ) THEN204 IF( ln_cpl ) THEN 205 205 zemp = + emp_tot(ji,jj) & ! net mass flux over the grid cell (ice+ocean area) 206 206 & - emp_ice(ji,jj) * ( 1. - pfrld(ji,jj) ) ! minus the mass flux intercepted by sea-ice … … 252 252 !-----------------------------------------------! 253 253 254 IF( l k_cpl) THEN254 IF( ln_cpl) THEN 255 255 tn_ice(:,:,1) = sist(:,:) ! sea-ice surface temperature 256 256 ht_i(:,:,1) = hicif(:,:)
Note: See TracChangeset
for help on using the changeset viewer.