Ignore:
Timestamp:
Dec 15, 2003, 6:50:41 PM (21 years ago)
Author:
lmdzadmin
Message:

Phasage avec la version de Ionela
IM/LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/hydrol.F

    r2 r486  
     1c
     2c $Header$
     3c
    14      SUBROUTINE hydrol(dtime,pctsrf,rain_fall,snow_fall,evap,
    25     .                  agesno, tsol,qsol,snow,runoff)
    … …  
    7679c je limite la temperature a RTT-1.8 (il faudrait aussi prendre l'eau de
    7780c la fonte) (Laurent Li, le 14mars98):
    78       tsol(i,is) = MIN(tsol(i,is),RTT-1.8)
     81cIM cf GK   tsol(i,is) = MIN(tsol(i,is),RTT-1.8)
     82cIM cf GK : la glace fond a 0C, non pas a -1.8
     83            tsol(i,is) = MIN(tsol(i,is),RTT)
    7984c
    8085ccc         ELSE
    … …  
    95100c je limite la temperature a RTT-1.8 (il faudrait aussi prendre l'eau de
    96101c la fonte) (Laurent Li, le 14mars98):
    97       tsol(i,is) = MIN(tsol(i,is),RTT-1.8)
     102cIM cf GK   tsol(i,is) = MIN(tsol(i,is),RTT-1.8)
     103cIM cf GK : la glace fond a 0C, non pas a -1.8
     104            tsol(i,is) = MIN(tsol(i,is),RTT)
    98105c
    99106ccc         ELSE
Note: See TracChangeset for help on using the changeset viewer.