Changeset 1740 for LMDZ5/trunk

Timestamp:

Apr 2, 2013, 3:46:34 PM (12 years ago)

Author:

lguez

Message:

Fixing bug from revision 1539 (see also revision 1604). Allocatable
arrays "tabijgcm", "longcm", "latgcm", "igcm", "jgcm" cannot be
arguments of "phys_output_open" if they have not been
allocated. Allocate them with zero size when iflag_con < 3.

Replaced non-ASCII characters in comments by ASCII sequences. There
are problems with non-ASCII characters, see for example line 2238:
some information is lost here.

File:

• LMDZ5/trunk/libf/phylmd/physiq.F (modified) (13 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F

@@ -546 +546 @@
 c=================================================================================================
 cCR04.12.07: on ajoute les nouvelles variables du nouveau schema de convection avec poches froides
-c Variables liées à la poche froide (jyg)
+c Variables li\'ees \`a la poche froide (jyg)
 
       REAL mip(klon,klev)  ! mass flux shed by the adiab ascent at each level
@@ -579 +579 @@
 
 cRC
-c Variables liées à la poche froide (jyg et rr)
-c Version diagnostique pour l'instant : pas de rétroaction sur la convection
+c Variables li\'ees \`a la poche froide (jyg et rr)
+c Version diagnostique pour l'instant : pas de r\'etroaction sur la convection
 
       REAL t_wake(klon,klev),q_wake(klon,klev) ! wake pour la convection
@@ -640 +640 @@
 
 c--------Stochastic Boundary Layer Triggering: ALE_BL--------
-c---Propriétés du thermiques au LCL 
-      real zlcl_th(klon)                                     ! Altitude du LCL calculé continument (pcon dans thermcell_main.F90)
+c---Propri\'et\'es du thermiques au LCL 
+      real zlcl_th(klon)                                     ! Altitude du LCL calcul\'e continument (pcon dans thermcell_main.F90)
       real fraca0(klon)                                      ! Fraction des thermiques au LCL
       real w0(klon)                                          ! Vitesse des thermiques au LCL
-      real w_conv(klon)                                      ! Vitesse verticale de grande échelle au LCL
+      real w_conv(klon)                                      ! Vitesse verticale de grande \'echelle au LCL
       real therm_tke_max0(klon)                              ! TKE dans les thermiques au LCL 
       real env_tke_max0(klon)                                ! TKE dans l'environnement au LCL 
@@ -652 +652 @@
       real ale_bl_stat(klon)
 
-c---Déclenchement stochastique
+c---D\'eclenchement stochastique
       integer :: tau_trig(klon)
       real proba_notrig(klon)
@@ -664 +664 @@
 
 c---Fermeture statistique
-      real alp_bl_det(klon)                                     ! ALP déterministe du thermique unique
-      real alp_bl_fluct_m(klon)                                 ! ALP liée aux fluctuations de flux de masse sous-nuageux
-      real alp_bl_fluct_tke(klon)                               ! ALP liée aux fluctuations d'énergie cinétique sous-nuageuse 
-      real alp_bl_conv(klon)                                    ! ALP liée à grande échelle
+      real alp_bl_det(klon)                                     ! ALP d\'terministe du thermique unique
+      real alp_bl_fluct_m(klon)                                 ! ALP li\'ee aux fluctuations de flux de masse sous-nuageux
+      real alp_bl_fluct_tke(klon)                               ! ALP li\'ee aux fluctuations d'\'energie cin\'etique sous-nuageuse 
+      real alp_bl_conv(klon)                                    ! ALP li\'ee \`a grande \'echelle
       real alp_bl_stat(klon)                                    ! ALP totale
 
@@ -1363 +1363 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! Un petit travail à faire ici.
+!! Un petit travail \`a faire ici.
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -1513 +1513 @@
                ALLOCATE(iGCM(0), jGCM(0))
             end if
-         ENDIF !debut
+         else
+            ALLOCATE(tabijGCM(0))
+            ALLOCATE(lonGCM(0), latGCM(0))
+            ALLOCATE(iGCM(0), jGCM(0))
+         ENDIF
  
            DO i=1,klon
@@ -1526 +1530 @@
 ! justement quand ok_orodr = false.
 ! ce rugoro est utilise par la couche limite et fait double emploi
-! avec les paramétrisations spécifiques de Francois Lott.
+! avec les param\'etrisations sp\'ecifiques de Francois Lott.
 !           DO i=1,klon
 !             rugoro(i) = MAX(1.0e-05, zstd(i)*zsig(i)/2.0)
@@ -1932 +1936 @@
 ! Calculs de l'orbite.
 ! Necessaires pour le rayonnement et la surface (calcul de l'albedo).
-! doit donc etre placé avant radlwsw et pbl_surface
+! doit donc etre plac\'e avant radlwsw et pbl_surface
 
 !!!   jyg 17 Sep 2010 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -1961 +1965 @@
 ! Pour une solarlong0=1000., on calcule un ensoleillement moyen sur
 ! l'annee a partir d'une formule analytique.
-! Cet ensoleillement est symmétrique autour de l'équateur et
+! Cet ensoleillement est sym\'etrique autour de l'\'equateur et
 ! non nul aux poles.
       IF (abs(solarlong0-1000.)<1.e-4) then
@@ -2232 +2236 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 ! Modif FH 2010/04/27. Sans doute temporaire.
-! Deux options pour le alp_offset : constant si >Â 0 ou proportionnel Ãa
+! Deux options pour le alp_offset : constant si >?? 0 ou proportionnel ??a
 ! w si <0
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -2628 +2632 @@
         ENDIF
 
-c----Tirage aléatoire et calcul de ale_bl_trig
+c----Tirage al\'eatoire et calcul de ale_bl_trig
       do i=1,klon
         if ( (ale_bl_stat(i) .gt. abs(cin(i))+1.e-10) )  then
@@ -2701 +2705 @@
 c  ==============
 
-! Dans le cas où on active les thermiques, on fait partir l'ajustement
+! Dans le cas o\`u on active les thermiques, on fait partir l'ajustement
 ! a partir du sommet des thermiques.
 ! Dans le cas contraire, on demarre au niveau 1.