Changeset 277 for LMDZ.3.3


Ignore:
Timestamp:
Sep 20, 2001, 6:07:51 PM (23 years ago)
Author:
lmdzadmin
Message:

Bug sur le runoff

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r275 r277  
    10771077  real, allocatable, dimension(:,:),save :: read_alb_sic
    10781078! variable tampon
    1079   real, dimension(klon)       :: tamp
    10801079  real, dimension(klon)       :: tamp_sic
    10811080! sauvegarde des fractions de surface d'un pas de temps a l'autre apres
     
    12371236       &                          + tauy(ig)        / FLOAT(nexca)
    12381237      cpl_rriv(ig,cpl_index) = cpl_rriv(ig,cpl_index) &
    1239        &                          + riverflow      / FLOAT(nexca)/dtime
     1238       &                          + riverflow(ig)   / FLOAT(nexca)/dtime
    12401239      cpl_rcoa(ig,cpl_index) = cpl_rcoa(ig,cpl_index) &
    1241        &                          + coastalflow    / FLOAT(nexca)/dtime
     1240       &                          + coastalflow(ig) / FLOAT(nexca)/dtime
    12421241    enddo
    12431242  endif
Note: See TracChangeset for help on using the changeset viewer.