source: lmdz_wrf/trunk/WRFV3/lmdz/calcul_divers.h @ 354

Last change on this file since 354 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 610 bytes
Line 
1!c
2!c $Header$
3!c
4
5!c     Initialisations diverses au "debut" du mois
6      IF(debut) THEN
7         nday_rain(:)=0.
8
9!c        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!cIM   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.