source: trunk/libf/phylmd/calcul_divers.h @ 86

Last change on this file since 86 was 66, checked in by emillour, 14 years ago

EM: Mise a niveau par rapport a la version terrestre (LMDZ5V2.0-dev, rev 1487)

  • Mise a jour des scripts (terrestres) 'makegcm' et 'create_make_gcm'
  • Ajout du script 'makelmdz' (version "amelioree", en Bash, de makegcm)
  • Mise a jour des routines dans phylmd (sauf regr_lat_time_climoz_m.F)
  • disvert (dans dyn3d et dyn3dpar): passage au Fortran 90
  • parallel.F90 (dyn3dpar): correction bug
  • etat0_netcdf.F90 (dyn3d et dyn3dpar) : mise a jour mineure
  • ce0l.F90 (dyn3dpar) : correction bug
  • abort_gcm.F (dyn3dpar) : correction bug
  • ugeostr.F90 (dyn3d et dyn3dpar) : passage au Fortran 90
  • fluxstokenc_p.F (dyn3dpar) : correction bug
  • iniacademic.F90 (dyn3d et dyn3dpar) : passage au Fortran 90
  • friction_p.F (dyn3dpar) : correction bug
  • infotrac.F90 (dyn3d et dyn3dpar) : correction bug mineur sur lecture traceurs
  • caladvtrac.F (dyn3d) : modifications cosmetiques
File size: 604 bytes
RevLine 
[1]1c
2c $Header$
3c
[66]4
5c     Initialisations diverses au "debut" du mois
6      IF(debut) THEN
7         nday_rain(:)=0.
8
9c        surface terre
10         paire_ter(:)=0.
[1]11         DO i=1, klon
[66]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
18cIM   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 TracBrowser for help on using the repository browser.