source: LMDZ4/trunk/libf/phy_IPCC_AR4/calcul_divers.h @ 919

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

Preparation du remplacement de la physique utilisee pour l'exercice IPCC_AR4
par la version de la physique avec thermique. On garde le repertoire phylmd
pour un petit moment pour que les utilisateurs ne soient pas trop perdus ...
phy_IPCC_AR4 = phylmd
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 651 bytes
RevLine 
[868]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.