Changeset 1063 for LMDZ4


Ignore:
Timestamp:
Dec 17, 2008, 1:18:25 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Ajout sorties wake, etc (JYG)
AI/IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/phys_output_write.h

    r1055 r1063  
    323323
    324324         DO nsrf = 1, nbsrf
    325            IF(nsrf.GT.2) THEN
     325           IF(nsrf.GE.2) THEN
    326326            IF (flag_pourc_sol(iff)<=lev_files(iff)) THEN
    327327            zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
     
    646646       CALL histwrite_phy(nid_files(iff),"WAPE",itau_w,wake_pe)
    647647       ENDIF
    648       ENDIF
     648       IF (flag_wake_h(iff)<=lev_files(iff)) THEN
     649      CALL histwrite_phy(nid_files(iff),"wake_h",itau_w,wake_h)
     650       ENDIF
     651
     652       IF (flag_wake_s(iff)<=lev_files(iff)) THEN
     653      CALL histwrite_phy(nid_files(iff),"wake_s",itau_w,wake_s)
     654       ENDIF
     655
     656        IF (flag_wake_deltat(iff)<=lev_files(iff)) THEN
     657       CALL histwrite_phy(nid_files(iff),"wake_deltat",
     658     $                     itau_w,wake_deltat)
     659        ENDIF
     660
     661        IF (flag_wake_deltaq(iff)<=lev_files(iff)) THEN
     662       CALL histwrite_phy(nid_files(iff),"wake_deltaq",
     663     $                    itau_w,wake_deltaq)
     664        ENDIF
     665
     666        IF (flag_wake_omg(iff)<=lev_files(iff)) THEN
     667       CALL histwrite_phy(nid_files(iff),"wake_omg",itau_w,wake_omg)
     668        ENDIF
     669      ENDIF
     670
     671        IF (flag_Vprecip(iff)<=lev_files(iff)) THEN
     672       CALL histwrite_phy(nid_files(iff),"Vprecip",itau_w,Vprecip)
     673        ENDIF
     674
     675        IF (flag_ftd(iff)<=lev_files(iff)) THEN
     676       CALL histwrite_phy(nid_files(iff),"ftd",itau_w,ftd)
     677        ENDIF
     678
     679        IF (flag_fqd(iff)<=lev_files(iff)) THEN
     680       CALL histwrite_phy(nid_files(iff),"fqd",itau_w,fqd)
     681        ENDIF
     682
    649683      ENDIF !(iflag_con.GE.3)
    650684 
Note: See TracChangeset for help on using the changeset viewer.