Changeset 716


Ignore:
Timestamp:
Oct 3, 2006, 10:32:55 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Petits probleme de declaration
LF

Location:
LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/clmain.F

    r710 r716  
    104104cIM cf JLD
    105105      REAL y_fqcalving(klon), y_fqfonte(klon), y_ffonte(klon)
    106       REAL fqcalving(klon,nbsrf), fqfonte(klon,nbsrf), ffonte(klon,nbsrf)
     106      REAL fqcalving(klon,nbsrf), fqfonte(klon,nbsrf)
     107      REAL ffonte(klon,nbsrf)
    107108      REAL run_off_lic_0(klon), y_run_off_lic_0(klon)
    108109

  • LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/interface_surf.F90

    r710 r716  
    202202! hauteur de neige, en kg/m2/s
    203203!jld a rajouter   real, dimension(klon), intent(INOUT):: fqcalving
    204   real, dimension(klon), intent(INOUT):: fqcalving
     204  real, dimension(klon), intent(INOUT):: fqcalving, fqfonte
    205205
    206206! Local
Note: See TracChangeset for help on using the changeset viewer.