source: LMDZ4/branches/LMDZ4-dev-20091210/libf/phylmd/calcul_divers.h @ 5068

Last change on this file since 5068 was 996, checked in by lsce, 16 years ago
  • Modifications liées au calcul des nouveau sous-fractions
  • Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
  • Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 643 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(i,is_ter).GT.0.) THEN
15            paire_ter(i)=airephy(i)*pctsrf(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.