source: LMDZ5/branches/LF-private/libf/phylmd/calcul_divers.h @ 3839

Last change on this file since 3839 was 1862, checked in by lguez, 11 years ago

Converted physiq.F to free source form (on mandate of the United Poihl).

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 604 bytes
Line 
1!
2! $Header$
3!
4
5!     Initialisations diverses au "debut" du mois
6      IF(debut) THEN
7         nday_rain(:)=0.
8
9!        surface terre
10         paire_ter(:)=0.
11         DO i=1, klon
12            IF(pctsrf(i,is_ter).GT.0.) THEN
13               paire_ter(i)=airephy(i)*pctsrf(i,is_ter)
14            ENDIF
15         ENDDO
16      ENDIF
17
18!IM   Calcul une fois par jour : total_rain, nday_rain
19      IF(MOD(itap,INT(un_jour/dtime)).EQ.0) THEN
20         DO i = 1, klon
21            total_rain(i)=rain_fall(i)+snow_fall(i) 
22            IF(total_rain(i).GT.0.) nday_rain(i)=nday_rain(i)+1.
23         ENDDO
24      ENDIF
Note: See TracBrowser for help on using the repository browser.