Changeset 599


Ignore:
Timestamp:
Feb 24, 2005, 5:48:47 PM (19 years ago)
Author:
Laurent Fairhead
Message:

Pb sur swdownor
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/write_histhf.h

    r589 r599  
    271271     $     zx_tmp_2d,iim*jjmp1,ndex2d)
    272272c
    273       CALL gr_fi_ecrit(1, klon,iim,jjmp1, swdownor , zx_tmp_2d)
     273      zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol(1:klon))
     274      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    274275      CALL histwrite(nid_hf,"SWdownOR",itau_w,
    275276     $     zx_tmp_2d,iim*jjmp1,ndex2d)
Note: See TracChangeset for help on using the changeset viewer.