Changeset 1028


Ignore:
Timestamp:
Oct 24, 2008, 5:15:32 PM (16 years ago)
Author:
lmdzadmin
Message:

Sorties en plus
FH/IM

Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

    r996 r1028  
    276276  integer, dimension(nfiles) , save :: flag_f_th        = (/ 4, 10, 10, 10 /)
    277277  integer, dimension(nfiles) , save :: flag_e_th        = (/ 4, 10, 10, 10 /)
     278  integer, dimension(nfiles) , save :: flag_w_th        = (/ 4, 10, 10, 10 /)
     279  integer, dimension(nfiles) , save :: flag_lambda_th        = (/ 4, 10, 10, 10 /)
     280  integer, dimension(nfiles) , save :: flag_q_th        = (/ 4, 10, 10, 10 /)
     281  integer, dimension(nfiles) , save :: flag_a_th        = (/ 4, 10, 10, 10 /)
    278282  integer, dimension(nfiles) , save :: flag_d_th        = (/ 4, 10, 10, 10 /)
    279283  integer, dimension(nfiles) , save :: flag_f0_th        = (/ 4, 10, 10, 10 /)
     
    678682 CALL histdef3d(iff,flag_f_th,"f_th","Thermal plume mass flux", "K/s")
    679683 CALL histdef3d(iff,flag_e_th,"e_th","Thermal plume entrainment", "K/s")
     684 CALL histdef3d(iff,flag_w_th,"w_th","Thermal plume vertical velocity", "m/s")
     685 CALL histdef3d(iff,flag_lambda_th,"lambda_th","Thermal plume vertical velocity", "m/s")
     686 CALL histdef3d(iff,flag_q_th,"q_th","Thermal plume total humidity", "kg/kg")
     687 CALL histdef3d(iff,flag_a_th,"a_th","Thermal plume fraction", "")
    680688 CALL histdef3d(iff,flag_d_th,"d_th","Thermal plume detrainment", "K/s")
    681  CALL histdef2d(iff,flag_d_th,"f0_th","Thermal closure mass flux", "K/s")
    682  CALL histdef2d(iff,flag_d_th,"zmax_th","Thermal plume height", "K/s")
     689 CALL histdef2d(iff,flag_f0_th,"f0_th","Thermal closure mass flux", "K/s")
     690 CALL histdef2d(iff,flag_zmax_th,"zmax_th","Thermal plume height", "K/s")
    683691 CALL histdef3d(iff,flag_dqthe,"dqthe","Dry adjust. dQ","(kg/kg)/s")
    684692 CALL histdef3d(iff,flag_dtajs,"dtajs","Dry adjust. dT", "K/s")
  • LMDZ4/trunk/libf/phylmd/phys_output_write.h

    r996 r1028  
    10031003        ENDIF
    10041004
    1005 !       IF (flag_d_th(iff)<=lev_files(iff)) THEN
    1006 !       CALL histwrite_phy(nid_files(iff),"d_th",itau_w,detr_therm)
    1007 !       ENDIF
     1005        IF (flag_w_th(iff)<=lev_files(iff)) THEN
     1006        CALL histwrite_phy(nid_files(iff),"w_th",itau_w,zw2)
     1007        ENDIF
     1008
     1009        IF (flag_q_th(iff)<=lev_files(iff)) THEN
     1010        CALL histwrite_phy(nid_files(iff),"q_th",itau_w,zqasc)
     1011        ENDIF
     1012
     1013        IF (flag_lambda_th(iff)<=lev_files(iff)) THEN
     1014        CALL histwrite_phy(nid_files(iff),"lambda_th",itau_w,lambda_th)
     1015        ENDIF
     1016
     1017        IF (flag_a_th(iff)<=lev_files(iff)) THEN
     1018        CALL histwrite_phy(nid_files(iff),"a_th",itau_w,fraca)
     1019        ENDIF
     1020
     1021       IF (flag_d_th(iff)<=lev_files(iff)) THEN
     1022       CALL histwrite_phy(nid_files(iff),"d_th",itau_w,detr_therm)
     1023       ENDIF
     1024
    10081025       ENDIF !iflag_thermals
    10091026
Note: See TracChangeset for help on using the changeset viewer.