Changeset 1453


Ignore:
Timestamp:
Nov 15, 2010, 11:22:36 AM (14 years ago)
Author:
jghattas
Message:

Bug corrections :
phylmd/calcul_divers.h, physiq.F : corrected initialization, for case ecrit_mth=dtime or ecrit_mth=1H.
libf/dyn3dpar/fluxstokenc_p.F : readded initliaization for variable needed with option offline

Location:
LMDZ5/branches/LMDZ5V1.0-dev/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/fluxstokenc_p.F

    r1403 r1453  
    5757
    5858c AC initialisations
    59 cym      pbarug(:,:)   = 0.
     59      pbarug(:,:)   = 0.
    6060cym      pbarvg(:,:,:) = 0.
    6161cym      wg(:,:)       = 0.
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/calcul_divers.h

    r1398 r1453  
    22c $Header$
    33c
    4 c
    5 c initialisations diverses au "debut" du mois
    6 c
    7       IF(MOD(itap,INT(ecrit_mth/dtime)).EQ.1) THEN
     4
     5c     Initialisations diverses au "debut" du mois
     6      IF(debut) THEN
     7         nday_rain(:)=0.
     8
     9c        surface terre
     10         paire_ter(:)=0.
    811         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
     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
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/physiq.F

    r1447 r1453  
    12501250cym Attention pbase pas initialise dans concvl !!!!
    12511251          pbase=0
    1252           paire_ter(:)=0.   
    12531252cIM 180608
    12541253c         pmflxr=0.
Note: See TracChangeset for help on using the changeset viewer.