Changeset 11054 for branches/UKMO/dev_r5518_GO6_fix_zemp_ice_10681/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2019-05-24T14:54:58+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_fix_zemp_ice_10681/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r11046 r11054 186 186 LOGICAL :: ln_usecplmask ! use a coupling mask file to merge data received from several models 187 187 ! -> file cplmask.nc with the float variable called cplmask (jpi,jpj,nn_cplmodel) 188 LOGICAL, PUBLIC :: ln_fix_sea_ice_fluxes ! Apply sea ice flux bug fixes (GMED#449) 188 189 189 190 TYPE :: DYNARR … … 262 263 & ln_usecplmask, nn_coupled_iceshelf_fluxes, ln_iceshelf_init_atmos, & 263 264 & rn_greenland_total_fw_flux, rn_greenland_calving_fraction, & 264 & rn_antarctica_total_fw_flux, rn_antarctica_calving_fraction, rn_iceshelf_fluxes_tolerance 265 & rn_antarctica_total_fw_flux, rn_antarctica_calving_fraction, rn_iceshelf_fluxes_tolerance, & 266 & ln_fix_sea_ice_fluxes 265 267 !!--------------------------------------------------------------------- 266 268 … … 333 335 WRITE(numout,*)' nn_cplmodel = ', nn_cplmodel 334 336 WRITE(numout,*)' ln_usecplmask = ', ln_usecplmask 337 WRITE(numout,*)' ln_fix_sea_ice_fluxes = ', ln_fix_sea_ice_fluxes 335 338 WRITE(numout,*)' nn_coupled_iceshelf_fluxes = ', nn_coupled_iceshelf_fluxes 336 339 WRITE(numout,*)' ln_iceshelf_init_atmos = ', ln_iceshelf_init_atmos … … 1842 1845 IF ( TRIM(sn_rcv_emp%clcat) == 'yes' ) THEN 1843 1846 ! zemp_ice is the sum of frcv(jpr_ievp)%z3(:,:,1) over all layers - snow 1844 zemp_ice(:,:) = - frcv(jpr_snow)%z3(:,:,1) * zicefr(:,:) 1847 IF ( ln_fix_sea_ice_fluxes ) THEN 1848 zemp_ice(:,:) = - frcv(jpr_snow)%z3(:,:,1) * zicefr(:,:) 1849 ELSE 1850 zemp_ice(:,:) = - frcv(jpr_snow)%z3(:,:,1) 1851 ENDIF 1845 1852 DO jl=1,jpl 1846 zemp_ice(:,: ) = zemp_ice(:,:) + frcv(jpr_ievp)%z3(:,:,jl) * a_i_last_couple(:,:,jl) 1853 IF ( ln_fix_sea_ice_fluxes ) THEN 1854 zemp_ice(:,: ) = zemp_ice(:,:) + frcv(jpr_ievp)%z3(:,:,jl) * a_i_last_couple(:,:,jl) 1855 ELSE 1856 zemp_ice(:,: ) = zemp_ice(:,:) + frcv(jpr_ievp)%z3(:,:,jl) 1857 ENDIF 1847 1858 ENDDO 1848 1859 ! latent heat coupled for each category in CICE
Note: See TracChangeset
for help on using the changeset viewer.