Changeset 3577 for LMDZ6


Ignore:
Timestamp:
Oct 7, 2019, 3:30:19 PM (5 years ago)
Author:
fhourdin
Message:

Corrections d'erreurs identifiees en debug ancienne physique sur Jean-Zay
Vive le poihl interactif.

Location:
LMDZ6/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.F90

    r3435 r3577  
    182182       ycoefh(1:knon,2:klev)=ykmn(1:knon,2:klev)
    183183               
     184    ELSE
     185       ! No TKE for Standard Physics
     186       yq2=0.
    184187    ENDIF !(iflag_pbl.ge.3)
    185188
  • LMDZ6/trunk/libf/phylmd/cv30_routines.F90

    r3531 r3577  
    30503050  ! variables pour tracer dans precip de l'AA et des mel
    30513051  ! local variables:
    3052   INTEGER i, j, k
     3052  INTEGER i, j, k, nam1
    30533053  REAL epm(nloc, na, na)
    30543054
     3055  nam1=na-1 ! Introduced because ep is not defined for j=na
    30553056  ! variables d'Emanuel : du second indice au troisieme
    30563057  ! --->    tab(i,k,j) -> de l origine k a l arrivee j
     
    30823083  ! fraction deau condensee dans les melanges convertie en precip : epm
    30833084  ! et eau condensée précipitée dans masse d'air saturé : l_m*dM_m/dzdz.dzdz
    3084   DO j = 1, na
     3085  DO j = 1, nam1
    30853086    DO k = 1, j - 1
    30863087      DO i = 1, ncum
     
    30953096  END DO
    30963097
    3097   DO j = 1, na
    3098     DO k = 1, na
     3098  DO j = 1, nam1
     3099    DO k = 1, nam1
    30993100      DO i = 1, ncum
    31003101        IF (k>=icb(i) .AND. k<=inb(i)) THEN
     
    31063107  END DO
    31073108
    3108   DO j = 1, na
     3109  DO j = 1, nam1
    31093110    DO k = 1, j - 1
    31103111      DO i = 1, ncum
     
    31173118
    31183119  ! matrices pour calculer la tendance des concentrations dans cvltr.F90
    3119   DO j = 1, na
    3120     DO k = 1, na
     3120  DO j = 1, nam1
     3121    DO k = 1, nam1
    31213122      DO i = 1, ncum
    31223123        da(i, j) = da(i, j) + (1.-sij(i,k,j))*ment(i, k, j)
     
    31273128  END DO
    31283129
    3129   DO j = 1, na
     3130  DO j = 1, nam1
    31303131    DO k = 1, j - 1
    31313132      DO i = 1, ncum
  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3575 r3577  
    17011701
    17021702!jyg<
    1703        IF (klon_glo==1) THEN
     1703       IF (iflag_pbl<=1) THEN
     1704          ! No TKE for Standard Physics
     1705          pbl_tke(:,:,:)=0.
     1706
     1707       ELSE IF (klon_glo==1) THEN
    17041708          pbl_tke(:,:,is_ave) = 0.
    17051709          DO nsrf=1,nbsrf
Note: See TracChangeset for help on using the changeset viewer.