source: LMDZ4/branches/LMDZ4_AR5/libf/phylmd/calcul_divers.h @ 5385

Last change on this file since 5385 was 1451, checked in by jghattas, 14 years ago

Bug corrections :
dyn3dpar/initfluxsto_p.F, leapfrog_p.F and fluxstokenc_p.F : for offline option
phylmd/calcul_divers.h : corrected initialization, for case ecrit_mth=dtime
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 599 bytes
RevLine 
[644]1c
2c $Header$
3c
4c
[1451]5c initialisations diverses au "debut" du simulation
[644]6c
[1451]7      IF(debut) THEN
[644]8         DO i=1, klon
9          nday_rain(i)=0.
10         ENDDO !i
11c
12c surface terre
13       DO i=1, klon
[996]14         IF(pctsrf(i,is_ter).GT.0.) THEN
15            paire_ter(i)=airephy(i)*pctsrf(i,is_ter)
[644]16         ENDIF
17       ENDDO
18c
[1451]19      ENDIF
[644]20c
[1451]21      IF(MOD(itap,INT(un_jour/dtime)).EQ.0) THEN
[644]22c
[1451]23cIM calcul une fois par jour : total_rain, nday_rain
[644]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
[1451]29      ENDIF
Note: See TracBrowser for help on using the repository browser.