Changeset 277 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Sep 20, 2001, 6:07:51 PM (23 years ago)

Author:

lmdzadmin

Message:

Bug sur le runoff

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90 (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -1077 +1077 @@
   real, allocatable, dimension(:,:),save :: read_alb_sic
 ! variable tampon
-  real, dimension(klon)       :: tamp
   real, dimension(klon)       :: tamp_sic
 ! sauvegarde des fractions de surface d'un pas de temps a l'autre apres 
@@ -1237 +1236 @@
        &                          + tauy(ig)        / FLOAT(nexca)
       cpl_rriv(ig,cpl_index) = cpl_rriv(ig,cpl_index) &
-       &                          + riverflow      / FLOAT(nexca)/dtime
+       &                          + riverflow(ig)   / FLOAT(nexca)/dtime
       cpl_rcoa(ig,cpl_index) = cpl_rcoa(ig,cpl_index) &
-       &                          + coastalflow    / FLOAT(nexca)/dtime
+       &                          + coastalflow(ig) / FLOAT(nexca)/dtime
     enddo
   endif