Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/phylmdiso

Timestamp:

Jul 19, 2024, 7:54:50 PM (5 months ago)

Author:

abarral

Message:

convert labeled do (f77) to do .. end do

Location:

LMDZ6/branches/Amaury_dev/libf/phylmdiso

Files:

• concvl.F90 (modified) (1 diff)
• cv30_routines.F90 (modified) (3 diffs)
• cv3_routines.F90 (modified) (2 diffs)
• lmdz_wake.F90 (modified) (12 diffs)
• phyetat0_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/concvl.F90

@@ -415 +415 @@
 ! em_wght(k)=wght_th(i,k)
 ! print*,'em_wght=',em_wght(k),wght_th(i,k)
-! end do
+! END DO
 ! END DO
 

LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv30_routines.F90

@@ -2032 +2032 @@
             ! !!!      traent(il,i,j,k)=sij(il,i,j)*tra(il,i,k)
             ! !!!     :      +(1.-sij(il,i,j))*tra(il,nk(il),k)
-            ! !!!      end do
+            ! !!!      END DO
             elij(il, i, j) = altem
             elij(il, i, j) = amax1(0.0, elij(il,i,j))
@@ -3155 +3155 @@
             ! :            +tra(il,i,j)*(mp(il,i)-mp(il,i+1))
             ! trap(il,i,j)=trap(il,i,j)/mp(il,i)
-            ! end do
+            ! END DO
 
           ELSE
@@ -3172 +3172 @@
               ! do j=1,ntra
               ! trap(il,i,j)=trap(il,i+1,j)
-              ! end do
+              ! END DO
 
             END IF

LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_routines.F90

@@ -2965 +2965 @@
 !!!!      traent(il,i,j,k)=sij(il,i,j)*tra(il,i,k)
 !!!!     :      +(1.-sij(il,i,j))*tra(il,nk(il),k)
-!!!!      end do
+!!!!      END DO
             elij(il, i, j) = altem
             elij(il, i, j) = max(0.0, elij(il,i,j))
@@ -4485 +4485 @@
 !AC!        endif ! (i.lt.inb(il) .and. lwork(il))
 !AC!       enddo
-!AC!      end do
+!AC!      END DO
 
 #ifdef ISO

LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_wake.F90

@@ -127 +127 @@
   ! wdens_ref: initial number of wakes per unit area (3D) or per
   ! unit length (2D), at the beginning of each time step
-  ! Tgw    : 1 sur la période de onde de gravité
-  ! Cgw    : vitesse de propagation de onde de gravité
+  ! Tgw    : 1 sur la p�riode de onde de gravit�
+  ! Cgw    : vitesse de propagation de onde de gravit�
   ! LL     : distance entre 2 poches
 
   ! -------------------------------------------------------------------------
-  ! Déclaration de variables
+  ! D�claration de variables
   ! -------------------------------------------------------------------------
 
@@ -196 +196 @@
   ! -------------------
 
-  ! Variables à fixer
+  ! Variables � fixer
   INTEGER, SAVE                                         :: igout
   !$OMP THREADPRIVATE(igout)
@@ -383 +383 @@
   ! Configuration de coefgw,stark,wdens (22/02/06 by YU Jingmei)
 
-  ! coefgw : Coefficient pour les ondes de gravité
+  ! coefgw : Coefficient pour les ondes de gravit�
   ! stark : Coefficient k dans Cstar=k*sqrt(2*WAPE)
-  ! wdens : Densité surfacique de poche froide
+  ! wdens : Densit� surfacique de poche froide
   ! -------------------------------------------------------------------------
 
@@ -1088 +1088 @@
 
     ! cc nrlmd   Ajout d'un recalcul de wdens dans le cas d'un entrainement
-    ! négatif de ktop à kupper --------
-    ! cc           On calcule pour cela une densité wdens0 pour laquelle on
+    ! n�gatif de ktop � kupper --------
+    ! cc           On calcule pour cela une densit� wdens0 pour laquelle on
     ! aurait un entrainement nul ---
     !jyg<
@@ -1096 +1096 @@
     ! des descentes unsaturees. Nous faisons alors l'hypothese que la 
     ! convection profonde cree directement de nouvelles poches, sans passer 
-    ! par les thermiques. La nouvelle valeur de wdens est alors imposée.
+    ! par les thermiques. La nouvelle valeur de wdens est alors impos�e.
 
     DO i = 1, klon
@@ -1195 +1195 @@
       DO i = 1, klon
         IF (wk_adv(i)) THEN
-          ! cc nrlmd          Introduction du taux de mortalité des poches et
+          ! cc nrlmd          Introduction du taux de mortalit� des poches et
           ! test sur sigmaw_max=0.4
           ! cc         d_sigmaw(i) = gfl(i)*Cstar(i)*dtimesub
@@ -1308 +1308 @@
 
     ! c      DO i=1,klon
-    ! c        print*,'Pente entre 0 et kupper (référence)'
+    ! c        print*,'Pente entre 0 et kupper (r�f�rence)'
     ! c     $           ,omg(i,kupper(i)+1)/(pupper(i)-ph(i,1))
     ! c        print*,'Pente entre ktop et kupper'
@@ -1602 +1602 @@
 
 
-          ! Coefficient de répartition
+          ! Coefficient de r�partition
 
           crep(i, k) = crep_sol*(ph(i,kupper(i))-ph(i,k))/ &
@@ -1646 +1646 @@
 !
 
-          ! cc nrlmd          Prise en compte du taux de mortalité
-          ! cc               Définitions de entr, detr
+          ! cc nrlmd          Prise en compte du taux de mortalit�
+          ! cc               D�finitions de entr, detr
 !jyg<
 !!            detr(i, k) = 0.
@@ -1664 +1664 @@
 
 
-          ! ajout d'un effet onde de gravité -Tgw(k)*deltatw(k) 03/02/06 YU
+          ! ajout d'un effet onde de gravit� -Tgw(k)*deltatw(k) 03/02/06 YU
           ! Jingmei
 
@@ -1748 +1748 @@
     ! c      do i=1,klon
     ! c         print*,alpha(i)
-    ! c      end do
+    ! c      END DO
     ! cc
     DO k = 1, klev
@@ -2601 +2601 @@
         discrim = b*b - 4.*a*c
         ! print*, 'x, a, b, c, discrim', x, a, b, c, discrim
-        IF (a+b>=0.) THEN !! Condition suffisante pour la positivité de ovap
+        IF (a+b>=0.) THEN !! Condition suffisante pour la positivit� de ovap
           alpha1(i) = 1.
         ELSE

LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyetat0_mod.F90

@@ -342 +342 @@
         IF (.NOT. found) THEN
            PRINT*, "phyetat0: Le champ <Tsoil"//str7//"> est absent"
-           PRINT*, "          Il prend donc la valeur de surface"
+           PRINT*, "          Il prEND DOnc la valeur de surface"
            tsoil(:, isoil, :)=ftsol(:, :)
         ENDIF

LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

@@ -1869 +1869 @@
 998          CONTINUE
              CLOSE(98)
-             CONTINUE
              IF(nCFMIP>npCFMIP) THEN
                 print*,'nCFMIP > npCFMIP : augmenter npCFMIP et recompiler'