Changeset 3817 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Feb 3, 2021, 8:58:55 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r3815 r3817 38 38 o_t2m, o_t2m_min, o_t2m_max, & 39 39 o_t2m_min_mon, o_t2m_max_mon, & 40 o_nt2mout, o_nt2moutfg, & 41 o_nq2mout, o_nq2moutfg, & 42 o_nu2mout, o_nu2moutfg, & 40 43 o_q2m, o_ustar, o_u10m, o_v10m, & 41 44 o_wind10m, o_wind10max, o_wind100m, o_gusts, o_sicf, & … … 251 254 252 255 USE phys_local_var_mod, ONLY: zxfluxlat, slp, ptstar, pt0, zxtsol, zt2m, & 253 zt2m_cor,zq2m_cor,zu10m_cor,zv10m_cor, zrh2m_cor, zqsat2m_cor, & 254 t2m_min_mon, t2m_max_mon, evap, & 256 zn2mout, t2m_min_mon, t2m_max_mon, evap, & 255 257 l_mixmin,l_mix, tke_dissip, & 256 258 zu10m, zv10m, zq2m, zustar, zxqsurf, & … … 683 685 CALL histwrite_phy(o_slp, slp) 684 686 CALL histwrite_phy(o_tsol, zxtsol) 685 CALL histwrite_phy(o_t2m, zt2m _cor)686 CALL histwrite_phy(o_t2m_min, zt2m _cor)687 CALL histwrite_phy(o_t2m_max, zt2m _cor)687 CALL histwrite_phy(o_t2m, zt2m) 688 CALL histwrite_phy(o_t2m_min, zt2m) 689 CALL histwrite_phy(o_t2m_max, zt2m) 688 690 CALL histwrite_phy(o_t2m_max_mon, t2m_max_mon) 689 691 CALL histwrite_phy(o_t2m_min_mon, t2m_min_mon) … … 691 693 IF (vars_defined) THEN 692 694 DO i=1, klon 693 zx_tmp_fi2d(i)=SQRT(zu10m_cor(i)*zu10m_cor(i)+zv10m_cor(i)*zv10m_cor(i)) 695 zx_tmp_fi2d(i)=real(zn2mout(i,1)) 696 ENDDO 697 ENDIF 698 CALL histwrite_phy(o_nt2mout, zx_tmp_fi2d) 699 700 IF (vars_defined) THEN 701 DO i=1, klon 702 zx_tmp_fi2d(i)=real(zn2mout(i,2)) 703 ENDDO 704 ENDIF 705 CALL histwrite_phy(o_nt2moutfg, zx_tmp_fi2d) 706 707 IF (vars_defined) THEN 708 DO i=1, klon 709 zx_tmp_fi2d(i)=real(zn2mout(i,3)) 710 ENDDO 711 ENDIF 712 CALL histwrite_phy(o_nq2mout, zx_tmp_fi2d) 713 714 IF (vars_defined) THEN 715 DO i=1, klon 716 zx_tmp_fi2d(i)=real(zn2mout(i,4)) 717 ENDDO 718 ENDIF 719 CALL histwrite_phy(o_nq2moutfg, zx_tmp_fi2d) 720 721 IF (vars_defined) THEN 722 DO i=1, klon 723 zx_tmp_fi2d(i)=real(zn2mout(i,5)) 724 ENDDO 725 ENDIF 726 CALL histwrite_phy(o_nu2mout, zx_tmp_fi2d) 727 728 IF (vars_defined) THEN 729 DO i=1, klon 730 zx_tmp_fi2d(i)=real(zn2mout(i,6)) 731 ENDDO 732 ENDIF 733 CALL histwrite_phy(o_nu2moutfg, zx_tmp_fi2d) 734 735 IF (vars_defined) THEN 736 DO i=1, klon 737 zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) 694 738 ENDDO 695 739 ENDIF … … 698 742 IF (vars_defined) THEN 699 743 DO i=1, klon 700 zx_tmp_fi2d(i)=SQRT(zu10m _cor(i)*zu10m_cor(i)+zv10m_cor(i)*zv10m_cor(i))744 zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) 701 745 ENDDO 702 746 ENDIF … … 777 821 ENDIF 778 822 CALL histwrite_phy(o_sicf, zx_tmp_fi2d) 779 CALL histwrite_phy(o_q2m, zq2m_cor) 780 CALL histwrite_phy(o_ustar, zustar) 781 CALL histwrite_phy(o_u10m, zu10m_cor) 782 CALL histwrite_phy(o_v10m, zv10m_cor) 823 CALL histwrite_phy(o_q2m, zq2m) 824 IF (vars_defined) zx_tmp_fi2d = zustar 825 CALL histwrite_phy(o_ustar, zx_tmp_fi2d) 826 CALL histwrite_phy(o_u10m, zu10m) 827 CALL histwrite_phy(o_v10m, zv10m) 783 828 784 829 IF (vars_defined) THEN … … 1435 1480 ! CALL histwrite_phy(o_rh2m_max, zx_tmp_fi2d) 1436 1481 1437 CALL histwrite_phy(o_qsat2m, zqsat2m_cor)1482 CALL histwrite_phy(o_qsat2m, qsat2m) 1438 1483 CALL histwrite_phy(o_tpot, tpot) 1439 1484 CALL histwrite_phy(o_tpote, tpote)
Note: See TracChangeset
for help on using the changeset viewer.