Changeset 4025


Ignore:
Timestamp:
Nov 26, 2021, 8:27:29 AM (3 years ago)
Author:
lguez
Message:

Cherry-pick revision 4019 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Ocean_skin/libf/phylmd/yamada4.F90

    r4013 r4025  
    986986 INTEGER            ngrid              ! Nombre de points concern??s sur l'horizontal
    987987 INTEGER            iflag_pbl          ! Choix du sch??ma de turbulence
    988  REAL            pbl_lmixmin_alpha  ! on active ou non le calcul de la longueur de melange minimum
     988 REAL               pbl_lmixmin_alpha  ! on active ou non le calcul de la longueur de melange minimum en fonction du relief
    989989 REAL               lmixmin            ! Minimum absolu de la longueur de m??lange
    990990 REAL               zlay(klon, klev)   ! altitude du centre de la couche
     
    11011101  END IF
    11021102
    1103 !=================================================================================
    1104 !  CALCUL d'une longueur de melange en fonctions de la topographie sous maille: l2
    1105 ! si plb_lmixmin_alpha=TRUE et si on se trouve sur de la terre ( pas actif sur les
     1103!===========================================================================================
     1104!  CALCUL d'une longueur de melange minimum en fonctions de la topographie sous maille: l2
     1105! si pbl_lmixmin_alpha=TRUE et si on se trouve sur de la terre ( pas actif sur les
    11061106! glacier, la glace de mer et les oc??ans)
    1107 !=================================================================================
     1107!===========================================================================================
    11081108
    11091109   l2(1:ngrid,:)=0.0
    11101110   l_mixmin(1:ngrid,:,nsrf)=0.
    11111111   l_mix(1:ngrid,:,nsrf)=0.
     1112   hlim(1:ngrid)=0.
    11121113
    11131114   IF (nsrf .EQ. 1) THEN
     
    11671168        ENDDO
    11681169     ENDDO
    1169    ENDIF                                                                        ! pbl_lmixmin_alpha
     1170   ENDIF                                                                           ! pbl_lmixmin_alpha
    11701171
    11711172!==================================================================================
     
    11831184! Diagnostics
    11841185
    1185  DO k=2,klev
     1186 DO k=1,klev+1
    11861187    DO ig=1,ngrid
    11871188       jg=ni(ig)
    11881189       l_mix(jg,k,nsrf)=lmix(ig,k)
    1189        l_mixmin(jg,k,nsrf)=l2(ig,k)
     1190       l_mixmin(jg,k,nsrf)=MAX(l2(ig,k),lmixmin)
    11901191    ENDDO
    11911192 ENDDO
    1192  DO ig=1,ngrid
    1193     jg=ni(ig)
    1194     l_mix(jg,1,nsrf)=hlim(ig)
    1195  ENDDO
    11961193
    11971194
Note: See TracChangeset for help on using the changeset viewer.