- Timestamp:
- May 11, 2023, 8:46:15 PM (17 months ago)
- Location:
- LMDZ6/trunk
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/DefLists/field_def_lmdz.xml
r4523 r4530 612 612 <field id="rnebcon" long_name="Convective Cloud Fraction" unit="-" /> 613 613 <field id="rnebls" long_name="LS Cloud fraction" unit="-" /> 614 <field id="rneblsvol" long_name="LS Cloud fraction by volume" unit="-" /> 614 <field id="rneblsvol" long_name="LS Cloud fraction by volume" unit="-" /> 615 <field id="pfraclr" long_name="LS precip fraction clear-sky part" unit="-" /> 616 <field id="pfracld" long_name="LS precip fraction cloudy part" unit="-" /> 615 617 <field id="rhum" long_name="Relative humidity" unit="-" /> 616 618 <field id="rhl" long_name="Relative humidity wrt liquid" unit="%" /> -
LMDZ6/trunk/libf/phylmd/lscp_mod.F90
r4425 r4530 9 9 paprs,pplay,t,q,ptconv,ratqs, & 10 10 d_t, d_q, d_ql, d_qi, rneb, rneblsvol, rneb_seri, & 11 radocond, radicefrac, rain, snow, & 11 pfraclr,pfracld, & 12 radocond, radicefrac, rain, snow, & 12 13 frac_impa, frac_nucl, beta, & 13 14 prfl, psfl, rhcl, zqta, fraca, & … … 154 155 REAL, DIMENSION(klon,klev), INTENT(OUT) :: rneb ! cloud fraction [-] 155 156 REAL, DIMENSION(klon,klev), INTENT(OUT) :: rneblsvol ! cloud fraction per unit volume [-] 157 REAL, DIMENSION(klon,klev), INTENT(OUT) :: pfraclr ! precip fraction clear-sky part [-] 158 REAL, DIMENSION(klon,klev), INTENT(OUT) :: pfracld ! precip fraction cloudy part [-] 156 159 REAL, DIMENSION(klon,klev), INTENT(OUT) :: radocond ! condensed water used in the radiation scheme [kg/kg] 157 160 REAL, DIMENSION(klon,klev), INTENT(OUT) :: radicefrac ! ice fraction of condensed water for radiation scheme … … 297 300 d_qi(:,:) = 0.0 298 301 rneb(:,:) = 0.0 302 pfraclr(:,:)=0.0 303 pfracld(:,:)=0.0 299 304 radocond(:,:) = 0.0 300 305 radicefrac(:,:) = 0.0 … … 1141 1146 ! Outputs: 1142 1147 ! Precipitation fluxes at layer interfaces 1143 ! and temperature and water species tendencies 1148 ! + precipitation fractions + 1149 ! temperature and water species tendencies 1144 1150 DO i = 1, klon 1145 1151 psfl(i,k)=zifl(i) 1146 1152 prfl(i,k)=zrfl(i) 1153 pfraclr(i,k)=znebprecipclr(i) 1154 pfracld(i,k)=znebprecipcld(i) 1147 1155 d_ql(i,k) = (1-zfice(i))*zoliq(i) 1148 1156 d_qi(i,k) = zfice(i)*zoliq(i) -
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r4523 r4530 476 476 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rneb,rnebjn,rneblsvol 477 477 !$OMP THREADPRIVATE(rneb,rnebjn,rneblsvol) 478 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: pfraclr,pfracld 479 !$OMP THREADPRIVATE(pfraclr,pfracld) 478 480 479 481 ! variables de sorties MM … … 884 886 ALLOCATE(beta_prec(klon,klev)) 885 887 ALLOCATE(rneb(klon,klev),rnebjn(klon,klev),rneblsvol(klon,klev)) 888 ALLOCATE(pfraclr(klon,klev),pfracld(klon,klev)) 889 pfraclr(:,:)=0. ; pfracld(:,:)=0. ! because not always defined 886 890 887 891 … … 1191 1195 DEALLOCATE(beta_prec) 1192 1196 DEALLOCATE(rneb) 1197 DEALLOCATE(pfraclr,pfracld) 1193 1198 DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic) 1194 1199 -
LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
r4523 r4530 1473 1473 TYPE(ctrl_out), SAVE :: o_rneblsvol = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1474 1474 'rneblsvol', 'LS Cloud fraction by volume', '-', (/ ('', i=1, 10) /)) 1475 TYPE(ctrl_out), SAVE :: o_pfraclr = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/), & 1476 'pfraclr', 'LS precipitation fraction clear-sky part', '-', (/ ('', i=1, 10) /)) 1477 TYPE(ctrl_out), SAVE :: o_pfracld = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/), & 1478 'pfracld', 'LS precipitation fraction cloudy part', '-', (/ ('', i=1, 10) /)) 1475 1479 TYPE(ctrl_out), SAVE :: o_rhum = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1476 1480 'rhum', 'Relative humidity', '-', (/ ('', i=1, 10) /)) -
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r4525 r4530 139 139 o_zfull, o_zhalf, o_rneb, o_rnebjn, o_rnebcon, & 140 140 o_rnebls, o_rneblsvol, o_rhum, o_rhl, o_rhi, o_ozone, o_ozone_light, & 141 o_pfraclr, o_pfracld, & 141 142 o_duphy, o_dtphy, o_dqphy, o_dqphy2d, o_dqlphy, o_dqlphy2d, & 142 143 o_dqsphy, o_dqsphy2d, o_dqbsphy, o_dqbsphy2d, o_albe_srf, o_z0m_srf, o_z0h_srf, & … … 330 331 ql_seri, qs_seri, qbs_seri, tr_seri, qbs_seri,& 331 332 zphi, u_seri, v_seri, omega, cldfra, & 332 rneb, rnebjn, rneblsvol, zx_rh, zx_rhl, zx_rhi, d_t_dyn, & 333 rneb, rnebjn, rneblsvol, zx_rh, zx_rhl, zx_rhi, & 334 pfraclr, pfracld, d_t_dyn, & 333 335 d_q_dyn, d_ql_dyn, d_qs_dyn, d_qbs_dyn, & 334 336 d_q_dyn2d, d_ql_dyn2d, d_qs_dyn2d, d_qbs_dyn2d, & … … 1866 1868 CALL histwrite_phy(o_rhi, zx_tmp_fi3d) 1867 1869 ENDIF 1870 1871 IF (ok_new_lscp) THEN 1872 CALL histwrite_phy(o_pfraclr, pfraclr) 1873 CALL histwrite_phy(o_pfracld, pfracld) 1874 ENDIF 1868 1875 1869 1876 !--aviation & supersaturation -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4527 r4530 293 293 ! 294 294 rneblsvol, & 295 pfraclr,pfracld, & 295 296 zqsatl, zqsats, & 296 297 qclr, qcld, qss, qvc, rnebclr, rnebss, gamma_ss, & … … 3695 3696 t_seri, q_seri,ptconv,ratqs, & 3696 3697 d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, rneblsvol, rneb_seri, & 3698 pfraclr,pfracld, & 3697 3699 radocond, picefra, rain_lsc, snow_lsc, & 3698 3700 frac_impa, frac_nucl, beta_prec_fisrt, & -
LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90
r4523 r4530 591 591 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rneb,rnebjn,rneblsvol 592 592 !$OMP THREADPRIVATE(rneb,rnebjn,rneblsvol) 593 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: pfraclr,pfracld 594 !$OMP THREADPRIVATE(pfraclr,pfracld) 593 595 594 596 ! variables de sorties MM … … 1076 1078 ALLOCATE(beta_prec(klon,klev)) 1077 1079 ALLOCATE(rneb(klon,klev),rnebjn(klon,klev),rneblsvol(klon,klev)) 1080 ALLOCATE(pfraclr(klon,klev),pfracld(klon,klev)) 1081 pfraclr(:,:)=0. ; pfracld(:,:)=0. ! because not always defined 1078 1082 1079 1083 … … 1447 1451 DEALLOCATE(beta_prec) 1448 1452 DEALLOCATE(rneb) 1453 DEALLOCATE(pfraclr,pfracld) 1449 1454 DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic) 1450 1455 #ifdef ISO -
LMDZ6/trunk/libf/phylmdiso/phys_output_ctrlout_mod.F90
r4524 r4530 1473 1473 TYPE(ctrl_out), SAVE :: o_rneblsvol = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1474 1474 'rneblsvol', 'LS Cloud fraction by volume', '-', (/ ('', i=1, 10) /)) 1475 TYPE(ctrl_out), SAVE :: o_pfraclr = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/), & 1476 'pfraclr', 'LS precipitation fraction clear-sky part', '-', (/ ('', i=1, 10) /)) 1477 TYPE(ctrl_out), SAVE :: o_pfracld = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/), & 1478 'pfracld', 'LS precipitation fraction cloudy part', '-', (/ ('', i=1, 10) /)) 1475 1479 TYPE(ctrl_out), SAVE :: o_rhum = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1476 1480 'rhum', 'Relative humidity', '-', (/ ('', i=1, 10) /)) -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r4523 r4530 331 331 ! 332 332 rneblsvol, & 333 pfraclr,pfracld, & 333 334 zqsatl, zqsats, & 334 335 qclr, qcld, qss, qvc, rnebclr, rnebss, gamma_ss, & … … 4790 4791 CALL lscp(klon,klev,phys_tstep,missing_val,paprs,pplay, & 4791 4792 t_seri, q_seri,ptconv,ratqs, & 4792 d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, rneblsvol, rneb_seri, & 4793 d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, rneblsvol, rneb_seri, & 4794 pfraclr,pfracld, & 4793 4795 radocond, picefra, rain_lsc, snow_lsc, & 4794 4796 frac_impa, frac_nucl, beta_prec_fisrt, &
Note: See TracChangeset
for help on using the changeset viewer.