Changeset 4924 for branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
- Timestamp:
- 2014-11-28T18:24:01+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r4666 r4924 566 566 zcoef_dqsb = rhoa * cpa * Cice 567 567 zcoef_frca = 1.0 - 0.3 568 ! MV 2014 the proper cloud fraction (mean summer months from the CLIO climato, NH+SH) is 0.19 569 zcoef_frca = 1.0 - 0.19 568 570 569 571 !!gm brutal.... … … 651 653 p_qsr(ji,jj,jl) = zztmp * ( 1. - palb(ji,jj,jl) ) * qsr(ji,jj) 652 654 ! Long Wave (lw) 653 ! iovino 654 IF( ff(ji,jj) .GT. 0._wp ) THEN 655 z_qlw(ji,jj,jl) = ( 0.95 * sf(jp_qlw)%fnow(ji,jj,1) - Stef * pst(ji,jj,jl) * zst3 ) * tmask(ji,jj,1) 656 ELSE 657 z_qlw(ji,jj,jl) = 0.95 * ( sf(jp_qlw)%fnow(ji,jj,1) - Stef * pst(ji,jj,jl) * zst3 ) * tmask(ji,jj,1) 658 ENDIF 655 z_qlw(ji,jj,jl) = 0.95 * ( sf(jp_qlw)%fnow(ji,jj,1) - Stef * pst(ji,jj,jl) * zst3 ) * tmask(ji,jj,1) 659 656 ! lw sensitivity 660 657 z_dqlw(ji,jj,jl) = zcoef_dqlw * zst3 … … 671 668 & * ( 11637800. * EXP( -5897.8 / pst(ji,jj,jl) ) / rhoa - sf(jp_humi)%fnow(ji,jj,1) ) ) 672 669 ! Latent heat sensitivity for ice (Dqla/Dt) 673 p_dqla(ji,jj,jl) = rn_efac * zcoef_dqla * z_wnds_t(ji,jj) / ( zst2 ) * EXP( -5897.8 / pst(ji,jj,jl) ) 670 ! MV we also have to cap the sensitivity if the flux is zero 671 IF ( p_qla(ji,jj,jl) .GT. 0.0 ) THEN 672 p_dqla(ji,jj,jl) = rn_efac * zcoef_dqla * z_wnds_t(ji,jj) / ( zst2 ) * EXP( -5897.8 / pst(ji,jj,jl) ) 673 ELSE 674 p_dqla(ji,jj,jl) = 0.0 675 ENDIF 676 674 677 ! Sensible heat sensitivity (Dqsb_ice/Dtn_ice) 675 678 z_dqsb(ji,jj,jl) = zcoef_dqsb * z_wnds_t(ji,jj) … … 823 826 sqrt_Cd=kappa/((kappa/sqrt_Cd_n10) - zpsi_m) ; Cd=sqrt_Cd*sqrt_Cd; 824 827 ELSE 825 !! Shifting the wind speed to 10m and neutral stability : 826 U_n10 = dU10*1./(1. + sqrt_Cd_n10/kappa*(log(zu/10.) - zpsi_m)) ! L & Y eq. (9a) 828 !! Shifting the wind speed to 10m and neutral stability : L & Y eq. (9a) 829 ! In very rare low-wind conditions, the old way of estimating the 830 ! neutral wind speed at 10m leads to a negative value that causes the code 831 ! to crash. To prevent this a threshold of 0.25m/s is now imposed. 832 U_n10 = MAX( 0.25 , dU10/(1. + sqrt_Cd_n10/kappa*(log(zu/10.) - zpsi_m)) ) 827 833 828 834 !! Updating the neutral 10m transfer coefficients : … … 959 965 zpsi_m = psi_m(zeta_u) 960 966 !! 961 !! Shifting the wind speed to 10m and neutral stability : (L & Y eq.(9a)) 962 ! U_n10 = dU10/(1. + sqrt_Cd_n10/kappa*(log(zu/10.) - psi_m(zeta_u))) 963 U_n10 = dU10/(1. + sqrt_Cd_n10/kappa*(log(zu/10.) - zpsi_m)) 967 !! Shifting the wind speed to 10m and neutral stability : L & Y eq.(9a) 968 ! In very rare low-wind conditions, the old way of estimating the 969 ! neutral wind speed at 10m leads to a negative value that causes the code 970 ! to crash. To prevent this a threshold of 0.25m/s is now imposed. 971 U_n10 = MAX( 0.25 , dU10/(1. + sqrt_Cd_n10/kappa*(log(zu/10.) - zpsi_m)) ) 964 972 !! 965 973 !! Shifting temperature and humidity at zu : (L & Y eq. (9b-9c))
Note: See TracChangeset
for help on using the changeset viewer.