Changeset 1284


Ignore:
Timestamp:
Dec 17, 2009, 10:37:48 AM (15 years ago)
Author:
idelkadi
Message:

-Rajout de sorties dans les fichiers histoires :

re : Cloud droplet effective radius
fl : Denominator of re

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

Legend:

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

    r1279 r1284  
    398398  type(ctrl_out),save :: o_pr_lsc_l     = ctrl_out((/ 2, 10, 10, 10, 10 /),'pr_lsc_l')
    399399  type(ctrl_out),save :: o_pr_lsc_i     = ctrl_out((/ 2, 10, 10, 10, 10 /),'pr_lsc_i')
     400  type(ctrl_out),save :: o_re           =ctrl_out((/ 5, 10, 10, 10, 10 /),'re')
     401  type(ctrl_out),save :: o_fl           =ctrl_out((/ 5, 10, 10, 10, 10 /),'fl')
    400402!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    401403
     
    10061008 CALL histdef3d(iff,o_pr_lsc_l%flag,o_pr_lsc_l%name, "Large scale precipitation lic", " ")
    10071009 CALL histdef3d(iff,o_pr_lsc_i%flag,o_pr_lsc_i%name, "Large scale precipitation ice", " ")
     1010!Cloud droplet effective radius
     1011 CALL histdef3d(iff,o_re%flag,o_re%name, "Cloud droplet effective radius","um")
     1012 CALL histdef3d(iff,o_fl%flag,o_fl%name, "Denominator of Cloud droplet effective radius"," ")
    10081013!FH Sorties pour la couche limite
    10091014     if (iflag_pbl>1) then
  • LMDZ4/trunk/libf/phylmd/phys_output_write.h

    r1279 r1284  
    762762     s        o_pr_lsc_i%name,itau_w,psfl(:,1:klev))
    763763      ENDIF
     764
     765      IF (o_re%flag(iff)<=lev_files(iff)) THEN
     766      CALL histwrite_phy(nid_files(iff),o_re%name,itau_w,re)
     767      ENDIF
     768
     769      IF (o_fl%flag(iff)<=lev_files(iff)) THEN
     770      CALL histwrite_phy(nid_files(iff),o_fl%name,itau_w,fl)
     771      ENDIF
     772
    764773
    765774
Note: See TracChangeset for help on using the changeset viewer.