Changeset 1454 for LMDZ5/trunk/libf/phylmd/calcul_divers.h
- Timestamp:
- Nov 18, 2010, 1:01:24 PM (14 years ago)
- Location:
- LMDZ5/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk
- Property svn:mergeinfo changed
/LMDZ5/branches/LMDZ5V1.0-dev (added) merged: 1436-1438,1441-1449,1452-1453
- Property svn:mergeinfo changed
-
LMDZ5/trunk/libf/phylmd/calcul_divers.h
r1398 r1454 2 2 c $Header$ 3 3 c 4 c 5 c initialisations diverses au "debut" du mois 6 c 7 IF(MOD(itap,INT(ecrit_mth/dtime)).EQ.1) THEN 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. 8 11 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(i,is_ter).GT.0.) THEN 15 paire_ter(i)=airephy(i)*pctsrf(i,is_ter) 16 ENDIF 17 ENDDO 18 c 19 ENDIF !MOD(itap,INT(ecrit_mth)).EQ.1 20 c 21 IF(MOD(itap,INT(ecrit_day/dtime)).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 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 TracChangeset
for help on using the changeset viewer.