source:
LMDZ4/tags/V3_conv/libf/phylmd/calcul_divers.h
@
1114
Last change on this file since 1114 was 756, checked in by , 17 years ago | |
---|---|
|
|
File size: 636 bytes |
Rev | Line | |
---|---|---|
[644] | 1 | c |
2 | c $Header$ | |
3 | c | |
4 | c | |
5 | c initialisations diverses au "debut" du mois | |
6 | c | |
7 | IF(MOD(itap,ecrit_mth).EQ.1) THEN | |
8 | DO i=1, klon | |
9 | nday_rain(i)=0. | |
10 | ENDDO !i | |
11 | c | |
12 | c surface terre | |
13 | DO i=1, klon | |
14 | IF(pctsrf_new(i,is_ter).GT.0.) THEN | |
15 | paire_ter(i)=airephy(i)*pctsrf_new(i,is_ter) | |
16 | ENDIF | |
17 | ENDDO | |
18 | c | |
19 | ENDIF !MOD(itap,ecrit_mth).EQ.1 | |
20 | c | |
21 | IF(MOD(itap,ecrit_day).EQ.0) THEN | |
22 | c | |
23 | cIM calcul total_rain, nday_rain | |
24 | c | |
25 | DO i = 1, klon | |
26 | total_rain(i)=rain_fall(i)+snow_fall(i) | |
27 | IF(total_rain(i).GT.0.) nday_rain(i)=nday_rain(i)+1. | |
28 | ENDDO | |
29 | ENDIF !itap.EQ.ecrit_mth |
Note: See TracBrowser
for help on using the repository browser.