Ignore:
Timestamp:
Jun 16, 2009, 1:59:42 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Les variables lwdn200 et lwdn200clr n'etaient pas correctement calculees
pour les sorties ACo
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

    r1150 r1182  
    219219       IF (o_LWdn200%flag(iff)<=lev_files(iff)) THEN
    220220      CALL histwrite_phy(nid_files(iff),
    221      s                   o_LWdn200%name,itau_w,zx_tmp_fi2d)
     221     s                   o_LWdn200%name,itau_w,LWdn200)
    222222       ENDIF
    223223
    224224       IF (o_LWdn200clr%flag(iff)<=lev_files(iff)) THEN
    225225      CALL histwrite_phy(nid_files(iff),
    226      s                  o_LWdn200clr%name,itau_w,zx_tmp_fi2d)
     226     s                  o_LWdn200clr%name,itau_w,LWdn200clr)
    227227       ENDIF
    228228
Note: See TracChangeset for help on using the changeset viewer.