source: LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/calcul_divers.h @ 1287

Last change on this file since 1287 was 776, checked in by Laurent Fairhead, 17 years ago

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le

LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 651 bytes
Line 
1c
2c $Header$
3c
4c
5c initialisations diverses au "debut" du mois
6c
7      IF(MOD(itap,INT(ecrit_mth)).EQ.1) THEN
8         DO i=1, klon
9          nday_rain(i)=0.
10         ENDDO !i
11c
12c 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
18c
19      ENDIF !MOD(itap,INT(ecrit_mth)).EQ.1
20c
21      IF(MOD(itap,INT(ecrit_day)).EQ.0) THEN
22c
23cIM calcul total_rain, nday_rain
24c
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.