Changeset 1960
- Timestamp:
- Jul 3, 2018, 4:09:02 PM (6 years ago)
- Location:
- trunk/LMDZ.TITAN
- Files:
-
- 2 edited
-
deftank/context_lmdz_physics.xml (modified) (9 diffs)
-
libf/phytitan/physiq_mod.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/deftank/context_lmdz_physics.xml
r1957 r1960 91 91 long_name="Sensible Heat Flux" 92 92 unit="W/m2" /> 93 <field id="evapCH4" 94 long_name="Surface CH4 pseudo-evaporation rate" 95 unit="mol/mol/s" /> 93 96 <field id="ISR_TOA" 94 97 long_name="Incoming Solar Radiation at TOA" … … 626 629 output_freq="30ts" 627 630 type="one_file" 628 enabled=". true.">631 enabled=".false."> 629 632 630 633 <!-- VARS 2D … … 652 655 type="one_file" 653 656 output_level="3" 654 enabled=". true.">657 enabled=".false."> 655 658 656 659 <!-- VARS 0D --> … … 687 690 688 691 <!-- Output file for DragonFly model intercomp - every Tday --> 689 <file id="intercomp.diurn ave"690 name="Xintercomp.diurn ave"692 <file id="intercomp.diurn" 693 name="Xintercomp.diurn" 691 694 output_freq="1d" 692 695 type="one_file" … … 714 717 <field field_ref="ps" level="1" /> 715 718 <field field_ref="sensibFlux" level="1" /> 719 <field field_ref="evapCH4" level="1" /> 716 720 </field_group> 717 721 … … 719 723 <field_group operation="minimum" 720 724 freq_op="1ts"> 721 <field field_ref="tsurf" level="1" /> 722 <field field_ref="ps" level="1" /> 723 <field field_ref="sensibFlux" level="1" /> 725 <field field_ref="tsurf" name="tsurf_min" level="1" /> 726 <field field_ref="ps" name="ps_min" level="1" /> 727 <field field_ref="sensibFlux" name="sensibFlux_min" level="1" /> 728 <field field_ref="evapCH4" name="evapCH4_min" level="1" /> 724 729 </field_group> 725 730 … … 727 732 <field_group operation="maximum" 728 733 freq_op="1ts"> 729 <field field_ref="tsurf" level="1" /> 730 <field field_ref="ps" level="1" /> 731 <field field_ref="sensibFlux" level="1" /> 734 <field field_ref="tsurf" name="tsurf_max" level="1" /> 735 <field field_ref="ps" name="ps_max" level="1" /> 736 <field field_ref="sensibFlux" name="sensibFlux_max" level="1" /> 737 <field field_ref="evapCH4" name="evapCH4_max" level="1" /> 732 738 </field_group> 733 739 … … 750 756 <field_group operation="minimum" 751 757 freq_op="1ts"> 752 <field field_ref="temp" level="1" /> 753 <field field_ref="teta" level="1" /> 754 <field field_ref="p" level="1" /> 755 <field field_ref="pphi" level="1" /> 756 <field field_ref="u" level="1" /> 757 <field field_ref="v" level="1" /> 758 <field field_ref="w" level="1" /> 759 <field field_ref="CH4" level="1" /> 760 <field field_ref="dqcond_CH4" level="1" /> 758 <field field_ref="temp" name="temp_min" level="1" /> 759 <field field_ref="p" name="p_min" level="1" /> 760 <field field_ref="u" name="u_min" level="1" /> 761 <field field_ref="v" name="v_min" level="1" /> 762 <field field_ref="w" name="w_min" level="1" /> 763 <field field_ref="CH4" name="CH4_min" level="1" /> 764 <field field_ref="dqcond_CH4" name="dqcondCH4_min" level="1" /> 761 765 </field_group> 762 766 … … 764 768 <field_group operation="maximum" 765 769 freq_op="1ts"> 766 <field field_ref="temp" level="1" /> 767 <field field_ref="teta" level="1" /> 768 <field field_ref="p" level="1" /> 769 <field field_ref="pphi" level="1" /> 770 <field field_ref="u" level="1" /> 771 <field field_ref="v" level="1" /> 772 <field field_ref="w" level="1" /> 773 <field field_ref="CH4" level="1" /> 774 <field field_ref="dqcond_CH4" level="1" /> 770 <field field_ref="temp" name="temp_max" level="1" /> 771 <field field_ref="p" name="p_max" level="1" /> 772 <field field_ref="u" name="u_max" level="1" /> 773 <field field_ref="v" name="v_max" level="1" /> 774 <field field_ref="w" name="w_max" level="1" /> 775 <field field_ref="CH4" name="CH4_max" level="1" /> 776 <field field_ref="dqcond_CH4" name="dqcondCH4_max" level="1" /> 775 777 </field_group> 776 778 -
trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90
r1958 r1960 378 378 real, dimension(:,:,:), allocatable, save :: dycchi ! NB : Only for chem tracers. Saved since chemistry is not called every step. 379 379 !$OMP THREADPRIVATE(dycchi) 380 real, dimension(ngrid,nlayer,nq) :: dyccond ! Condensation flux. NB : for all tracers, as we want to use indx on it.380 real, dimension(ngrid,nlayer,nq) :: dyccond ! Condensation rate. NB : for all tracers, as we want to use indx on it. 381 381 real, dimension(ngrid,nlayer,nq) :: dyccondbar ! For 2D chemistry 382 real, dimension(ngrid) :: dycevapCH4 ! Surface "pseudo-evaporation" flux(forcing constant surface humidity).382 real, dimension(ngrid) :: dycevapCH4 ! Surface "pseudo-evaporation" rate (forcing constant surface humidity). 383 383 384 384 ! Saturation profiles … … 1580 1580 call writediagfi(ngrid,cnames(iq),cnames(iq),'mol/mol',3,zq(:,:,iq+nmicro)/rat_mmol(iq+nmicro)) 1581 1581 enddo 1582 call writediagfi(ngrid," fluxCH4","Surface CH4 pseudo-evaporation",'mol/mol/s',2,dycevapCH4)1582 call writediagfi(ngrid,"evapCH4","Surface CH4 pseudo-evaporation rate",'mol/mol/s',2,dycevapCH4) 1583 1583 endif 1584 1584 … … 1679 1679 1680 1680 ! Pseudo-evaporation flux (mol/mol/s) 1681 CALL send_xios_field(" dqevapCH4",dycevapCH4(:))1681 CALL send_xios_field("evapCH4",dycevapCH4(:)) 1682 1682 1683 1683 endif ! of 'if callchim'
Note: See TracChangeset
for help on using the changeset viewer.
