Changeset 4821 for LMDZ6/trunk/libf/phylmd/lmdz_blowing_snow_ini.F90
- Timestamp:
- Feb 14, 2024, 9:26:23 PM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_blowing_snow_ini.F90
r4724 r4821 3 3 implicit none 4 4 5 save 6 integer :: prt_level=0,lunout 7 real RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT,RD,RG 8 real coef_eva_bs, expo_eva_bs, fallv_bs, zeta_bs 9 real prt_bs, pbst_bs, qbst_bs 10 integer :: iflag_saltation_bs 5 real, save, protected :: RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT,RD,RG 6 real, save, protected :: coef_eva_bs, expo_eva_bs, fallv_bs, zeta_bs 7 real, save, protected :: prt_bs, pbst_bs, qbst_bs 8 9 integer, save, protected :: iflag_saltation_bs 11 10 12 !$OMP THREADPRIVATE(prt_level, lunout)13 11 !$OMP THREADPRIVATE(RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT,RD,RG) 14 12 !$OMP THREADPRIVATE(coef_eva_bs, expo_eva_bs, fallv_bs, zeta_bs) … … 16 14 !$OMP THREADPRIVATE(iflag_saltation_bs) 17 15 18 real tbsmelt ! parameter to calculate melting fraction of BS sedimentation 19 parameter (tbsmelt=278.15) 16 real, save, protected :: tbsmelt=278.15 ! parameter to calculate melting fraction of BS sedimentation 17 real, save, protected :: taumeltbs0=1800.0 ! Melting time scale of blowing snow at 273.15K 18 real, save, protected :: qbsmin=1.E-10 ! Minimum blowing snow specific content 20 19 21 real taumeltbs0 ! Melting time scale of blowing snow at 273.15K 22 parameter (taumeltbs0=1800.0) 23 24 real qbsmin ! Minimum blowing snow specific content 25 parameter (qbsmin=1.E-10) 20 !$OMP THREADPRIVATE(tbsmelt, taumeltbs0, qbsmin) 26 21 27 22 28 23 contains 29 24 30 subroutine blowing_snow_ini(prt_level_in,lunout_in, & 31 RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in,& 25 subroutine blowing_snow_ini(RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in,& 32 26 RVTMP2_in, RTT_in,RD_in,RG_in) 33 27 34 28 USE ioipsl_getin_p_mod, ONLY : getin_p 35 29 36 integer, intent(in) :: prt_level_in,lunout_in37 30 real, intent(in) :: RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in 38 31 real, intent(in) :: RVTMP2_in, RTT_in, RD_in, RG_in 39 32 40 33 41 prt_level=prt_level_in42 34 RG=RG_in 43 35 RD=RD_in … … 49 41 RG=RG_in 50 42 RVTMP2=RVTMP2_in 51 lunout=lunout_in52 43 53 44 … … 60 51 prt_bs= 0.0003 61 52 CALL getin_p('prt_bs',prt_bs) 62 63 53 64 54 zeta_bs= 3.
Note: See TracChangeset
for help on using the changeset viewer.