Changeset 3113 for LMDZ6/trunk/libf/phylmd
- Timestamp:
- Dec 5, 2017, 1:29:47 PM (7 years ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/newmicro.F90
r3112 r3113 10 10 USE dimphy 11 11 USE phys_local_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, & 12 reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra 12 reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, zfice 13 13 USE phys_state_var_mod, ONLY: rnebcon, clwcon 14 14 USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14) … … 152 152 REAL zrho(klon, klev) !--rho pour la couche 153 153 REAL dh(klon, klev) !--dz pour la couche 154 REAL zfice(klon, klev)155 154 REAL rad_chaud(klon, klev) !--rayon pour les nuages chauds 156 155 REAL rad_chaud_pi(klon, klev) !--rayon pour les nuages chauds pre-industriels -
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r3112 r3113 175 175 REAL, SAVE, ALLOCATABLE :: icc3dcon(:,:) 176 176 !$OMP THREADPRIVATE(icc3dcon) 177 REAL, SAVE, ALLOCATABLE :: zfice(:,:) 178 !$OMP THREADPRIVATE(zfice) 177 179 REAL, SAVE, ALLOCATABLE :: od443aer(:) 178 180 !$OMP THREADPRIVATE(od443aer) … … 603 605 ALLOCATE(icc3dcon(klon, klev)) 604 606 ALLOCATE(icc3dstra(klon, klev)) 607 ALLOCATE(zfice(klon, klev)) 605 608 ALLOCATE(od443aer(klon)) 606 609 ALLOCATE(od550aer(klon)) … … 883 886 DEALLOCATE(icc3dcon) 884 887 DEALLOCATE(icc3dstra) 888 DEALLOCATE(zfice) 885 889 DEALLOCATE(od443aer) 886 890 DEALLOCATE(od550aer) -
LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
r3112 r3113 1453 1453 'icc3dstra', 'Mass Fraction of Stratiform Cloud Ice', & 1454 1454 'kg kg-1', (/ ('', i=1, 10) /)) 1455 TYPE(ctrl_out), SAVE :: o_cldicemxrat = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1456 'cldicemxrat', 'Cloud Ice Mixing Ratio', & 1457 '1', (/ ('', i=1, 10) /)) 1458 TYPE(ctrl_out), SAVE :: o_cldwatmxrat = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1459 'cldwatmxrat', 'Cloud Water Mixing Ratio', & 1460 '1', (/ ('', i=1, 10) /)) 1455 1461 TYPE(ctrl_out), SAVE :: o_solbnd = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1456 1462 'solbnd', 'Top-of-Atmosphere Solar Insolation for each band', 'W m-2', (/ ('', i=1, 10) /)) -
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r3112 r3113 123 123 o_rsdsdiff, o_rsdscsdiff, o_stratomask,& 124 124 o_cldnvi, o_lcc, o_lcc3d, o_lcc3dcon, & 125 o_lcc3dstra, o_icc3dcon, o_icc3dstra, o_reffclwtop, o_ec550aer, & 125 o_lcc3dstra, o_icc3dcon, o_icc3dstra, & 126 o_cldicemxrat, o_cldwatmxrat, o_reffclwtop, o_ec550aer, & 126 127 o_lwcon, o_iwcon, o_temp, o_theta, & 127 128 o_ovapinit, o_ovap, o_oliq, o_ocond, o_geop, & … … 280 281 scdnc, cldncl, reffclws, reffclwc, cldnvi, & 281 282 PSFSWDIR, PSFSWDIF, stratomask,& 282 lcc, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, reffclwtop, & 283 lcc, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, & 284 zfice, reffclwtop, & 283 285 ec550aer, flwc, fiwc, t_seri, theta, q_seri, & 284 286 ql_seri, qs_seri, tr_seri, & … … 1410 1412 CALL histwrite_phy(o_icc3dcon, icc3dcon) 1411 1413 CALL histwrite_phy(o_icc3dstra, icc3dstra) 1414 CALL histwrite_phy(o_cldicemxrat, zfice) 1415 zx_tmp_fi3d(:,:)=1-zfice(:,:) 1416 CALL histwrite_phy(o_cldwatmxrat, zx_tmp_fi3d) 1412 1417 CALL histwrite_phy(o_reffclwtop, reffclwtop) 1413 1418 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.