Changeset 5600 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90
- Timestamp:
- 2015-07-15T17:46:12+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90
r5034 r5600 46 46 PUBLIC lim_sbc_flx_2 ! called by sbc_ice_lim_2 47 47 PUBLIC lim_sbc_tau_2 ! called by sbc_ice_lim_2 48 PUBLIC lim_bio_meanqsr_2 ! called by sbc_ice_lim_249 48 50 49 REAL(wp) :: r1_rdtice ! = 1. / rdt_ice … … 97 96 !! - fr_i : ice fraction 98 97 !! - tn_ice : sea-ice surface temperature 99 !! - alb_ice : sea-ice albedo (l k_cpl=T)98 !! - alb_ice : sea-ice albedo (ln_cpl=T) 100 99 !! 101 100 !! References : Goosse, H. et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90. … … 179 178 180 179 ! computation the solar flux at ocean surface 181 IF( l k_cpl ) THEN180 IF( ln_cpl ) THEN 182 181 zqsr = qsr_tot(ji,jj) + ( fstric(ji,jj) - qsr_ice(ji,jj,1) ) * ( 1.0 - pfrld(ji,jj) ) 183 182 ELSE … … 203 202 ! mass flux at the ocean-atmosphere interface (open ocean fraction = leads area) 204 203 ! ! coupled mode: 205 IF( l k_cpl ) THEN204 IF( ln_cpl ) THEN 206 205 zemp = + emp_tot(ji,jj) & ! net mass flux over the grid cell (ice+ocean area) 207 206 & - emp_ice(ji,jj) * ( 1. - pfrld(ji,jj) ) ! minus the mass flux intercepted by sea-ice … … 253 252 !-----------------------------------------------! 254 253 255 IF( l k_cpl) THEN254 IF( ln_cpl) THEN 256 255 tn_ice(:,:,1) = sist(:,:) ! sea-ice surface temperature 257 256 ht_i(:,:,1) = hicif(:,:) … … 430 429 END SUBROUTINE lim_sbc_tau_2 431 430 432 SUBROUTINE lim_bio_meanqsr_2433 !!---------------------------------------------------------------------434 !! *** ROUTINE lim_bio_meanqsr435 !!436 !! ** Purpose : provide daily qsr_mean for PISCES when437 !! analytic diurnal cycle is applied in physic438 !!439 !! ** Method : add part under ice440 !!441 !!---------------------------------------------------------------------442 443 qsr_mean(:,:) = pfrld(:,:) * qsr_mean(:,:) + ( 1. - pfrld(:,:) ) * fstric_daymean(:,:)444 445 END SUBROUTINE lim_bio_meanqsr_2446 431 447 432 SUBROUTINE lim_sbc_init_2
Note: See TracChangeset
for help on using the changeset viewer.