/[lmdze]/trunk/Sources/phylmd/coefkz2.f

Diff of /trunk/Sources/phylmd/coefkz2.f

Parent Directory | Revision Log | View Patch Patch

-trunk/phylmd/coefkz2.f90
revision 76 by guez,
Fri Nov 15 18:45:49 2013 UTC
+trunk/Sources/phylmd/coefkz2.f
revision 234 by guez,
Tue Nov  7 12:20:42 2017 UTC
 Line 1
- SUBROUTINE coefkz2(nsrf, knon, paprs, pplay, t, pcfm, pcfh)
+ module coefkz2_m
-   ! J'introduit un peu de diffusion sauf dans les endroits
-   ! ou une forte inversion est presente
-   ! On peut dire qu'il represente la convection peu profonde
-   use dimens_m
-   use indicesol
-   use dimphy
-   use conf_gcm_m
-   use SUPHEC_M
    IMPLICIT none
-   ! Arguments:
+ contains
-   ! nsrf-----input-I- indicateur de la nature du sol
-   ! knon-----input-I- nombre de points a traiter
+   SUBROUTINE coefkz2(nsrf, knon, paprs, pplay, t, pcfm, pcfh)
-   ! paprs----input-R- pression a chaque intercouche (en Pa)
-   ! pplay----input-R- pression au milieu de chaque couche (en Pa)
+     ! J'introduit un peu de diffusion sauf dans les endroits
-   ! t--------input-R- temperature (K)
+     ! ou une forte inversion est presente
+     ! On peut dire qu'il represente la convection peu profonde
-   ! pcfm-----output-R- coefficients a calculer (vitesse)
-   ! pcfh-----output-R- coefficients a calculer (chaleur et humidite)
+     use dimens_m
+     use indicesol
-   ! Arguments:
+     use dimphy
+     use conf_gcm_m
-   INTEGER knon, nsrf
+     use SUPHEC_M
-   REAL paprs(klon, klev+1), pplay(klon, klev)
-   REAL t(klon, klev)
+     ! Arguments:
+     ! nsrf-----input-I- indicateur de la nature du sol
-   REAL pcfm(klon, klev), pcfh(klon, klev)
+     ! knon-----input-I- nombre de points a traiter
+     ! paprs----input-R- pression a chaque intercouche (en Pa)
-   ! Quelques constantes et options:
+     ! pplay----input-R- pression au milieu de chaque couche (en Pa)
+     ! t--------input-R- temperature (K)
-   REAL prandtl
-   PARAMETER (prandtl=0.4)
+     ! pcfm-----output-R- coefficients a calculer (vitesse)
-   REAL kstable
+     ! pcfh-----output-R- coefficients a calculer (chaleur et humidite)
-   PARAMETER (kstable=0.002)
-   REAL mixlen ! constante controlant longueur de melange
+     ! Arguments:
-   PARAMETER (mixlen=35.0)
-   REAL seuil ! au-dela l'inversion est consideree trop faible
+     INTEGER knon, nsrf
-   PARAMETER (seuil=-0.02)
+     REAL paprs(klon, klev+1), pplay(klon, klev)
+     REAL t(klon, klev)
-   ! Variables locales:
+     REAL, intent(out):: pcfm(:, :), pcfh(:, :) ! (knon, klev)
-   INTEGER i, k, invb(knon)
-   REAL zl2(knon)
+     ! Quelques constantes et options:
-   REAL zdthmin(knon), zdthdp
+     REAL prandtl
-   !----------------------------------------------------------
+     PARAMETER (prandtl=0.4)
+     REAL kstable
-   ! Initialiser les sorties
+     PARAMETER (kstable=0.002)
-   DO k = 1, klev
+     REAL mixlen ! constante controlant longueur de melange
-      DO i = 1, knon
+     PARAMETER (mixlen=35.0)
-         pcfm(i, k) = 0.0
+     REAL seuil ! au-dela l'inversion est consideree trop faible
-         pcfh(i, k) = 0.0
+     PARAMETER (seuil=-0.02)
-      ENDDO
-   ENDDO
+     ! Variables locales:
-   ! Chercher la zone d'inversion forte
+     INTEGER i, k, invb(knon)
+     REAL zl2(knon)
-   DO i = 1, knon
+     REAL zdthmin(knon), zdthdp
-      invb(i) = klev
-      zdthmin(i)=0.0
+     !----------------------------------------------------------
-   ENDDO
-   DO k = 2, klev/ 2 - 1
+     ! Initialiser les sorties
-      DO i = 1, knon
+     DO k = 1, klev
-         zdthdp = (t(i, k) - t(i, k + 1)) / (pplay(i, k) - pplay(i, k + 1)) &
+        DO i = 1, knon
-              - RD * 0.5 * (t(i, k) + t(i, k + 1)) / RCPD / paprs(i, k + 1)
+           pcfm(i, k) = 0.0
-         zdthdp = zdthdp * 100.
+           pcfh(i, k) = 0.0
-         IF (pplay(i, k) > 0.8 * paprs(i, 1) .AND. zdthdp < zdthmin(i)) THEN
+        ENDDO
-            zdthmin(i) = zdthdp
+     ENDDO
-            invb(i) = k
-         ENDIF
+     ! Chercher la zone d'inversion forte
-      ENDDO
-   ENDDO
+     DO i = 1, knon
+        invb(i) = klev
-   ! Introduire une diffusion:
+        zdthmin(i)=0.0
-   DO k = 2, klev
+     ENDDO
-      DO i = 1, knon
+     DO k = 2, klev/ 2 - 1
-         ! si on est sur ocean et s'il n'y a pas d'inversion ou si
+        DO i = 1, knon
-         ! l'inversion est trop faible:
+           zdthdp = (t(i, k) - t(i, k + 1)) / (pplay(i, k) - pplay(i, k + 1)) &
-         IF ((nsrf.EQ.is_oce) .AND.  &
+                - RD * 0.5 * (t(i, k) + t(i, k + 1)) / RCPD / paprs(i, k + 1)
-              ((invb(i).EQ.klev) .OR. (zdthmin(i) > seuil))) THEN
+           zdthdp = zdthdp * 100.
-            zl2(i)=(mixlen*MAX(0.0, (paprs(i, k)-paprs(i, klev+1)) &
+           IF (pplay(i, k) > 0.8 * paprs(i, 1) .AND. zdthdp < zdthmin(i)) THEN
-                 /(paprs(i, 2)-paprs(i, klev+1))))**2
+              zdthmin(i) = zdthdp
-            pcfm(i, k)= zl2(i)* kstable
+              invb(i) = k
-            pcfh(i, k) = pcfm(i, k) /prandtl ! h et m different
+           ENDIF
-         ENDIF
+        ENDDO
-      ENDDO
+     ENDDO
-   ENDDO
+     ! Introduire une diffusion:
+     DO k = 2, klev
+        DO i = 1, knon
+           ! si on est sur ocean et s'il n'y a pas d'inversion ou si
+           ! l'inversion est trop faible:
+           IF ((nsrf.EQ.is_oce) .AND.  &
+                ((invb(i).EQ.klev) .OR. (zdthmin(i) > seuil))) THEN
+              zl2(i)=(mixlen*MAX(0.0, (paprs(i, k)-paprs(i, klev+1)) &
+                   /(paprs(i, 2)-paprs(i, klev+1))))**2
+              pcfm(i, k)= zl2(i)* kstable
+              pcfh(i, k) = pcfm(i, k) /prandtl ! h et m different
+           ENDIF
+        ENDDO
+     ENDDO
+   END SUBROUTINE coefkz2
- END SUBROUTINE coefkz2
+ end module coefkz2_m

 Legend:



Removed from v.76
 


changed lines


 
Added in v.234
 Legend:



Removed from v.76
 


changed lines


 
Added in v.234
-Removed from v.76
+Added in v.234

	ViewVC Help
Powered by ViewVC 1.1.21