Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3d/vlspltqs.F

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/vlspltqs.F (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/vlspltqs.F

@@ -127 +127 @@
       enddo  
 
-c      call minmaxq(zq,qmin,qmax,'avant vlxqs     ')
-      call vlxqs(zq,pente_max,zm,mu,qsat,iq)
-
-c     call minmaxq(zq,qmin,qmax,'avant vlyqs     ')
-
-      call vlyqs(zq,pente_max,zm,mv,qsat,iq)
-
-c      call minmaxq(zq,qmin,qmax,'avant vlz     ')
-
-      call vlz(zq,pente_max,zm,mw,iq)
-
-c     call minmaxq(zq,qmin,qmax,'avant vlyqs     ')
-c     call minmaxq(zm,qmin,qmax,'M avant vlyqs     ')
-
-      call vlyqs(zq,pente_max,zm,mv,qsat,iq)
-
-c     call minmaxq(zq,qmin,qmax,'avant vlxqs     ')
-c     call minmaxq(zm,qmin,qmax,'M avant vlxqs     ')
-
-      call vlxqs(zq,pente_max,zm,mu,qsat,iq)
-
-c     call minmaxq(zq,qmin,qmax,'apres vlxqs     ')
-c     call minmaxq(zm,qmin,qmax,'M apres vlxqs     ')
+c      CALL minmaxq(zq,qmin,qmax,'avant vlxqs     ')
+      CALL vlxqs(zq,pente_max,zm,mu,qsat,iq)
+
+c     CALL minmaxq(zq,qmin,qmax,'avant vlyqs     ')
+
+      CALL vlyqs(zq,pente_max,zm,mv,qsat,iq)
+
+c      CALL minmaxq(zq,qmin,qmax,'avant vlz     ')
+
+      CALL vlz(zq,pente_max,zm,mw,iq)
+
+c     CALL minmaxq(zq,qmin,qmax,'avant vlyqs     ')
+c     CALL minmaxq(zm,qmin,qmax,'M avant vlyqs     ')
+
+      CALL vlyqs(zq,pente_max,zm,mv,qsat,iq)
+
+c     CALL minmaxq(zq,qmin,qmax,'avant vlxqs     ')
+c     CALL minmaxq(zm,qmin,qmax,'M avant vlxqs     ')
+
+      CALL vlxqs(zq,pente_max,zm,mu,qsat,iq)
+
+c     CALL minmaxq(zq,qmin,qmax,'apres vlxqs     ')
+c     CALL minmaxq(zm,qmin,qmax,'M apres vlxqs     ')
 
 
@@ -177 +177 @@
       END
       SUBROUTINE vlxqs(q,pente_max,masse,u_m,qsat,iq)
-      USE infotrac, ONLY : nqtot,tracers ! CRisi
+      USE infotrac, ONLY: nqtot,tracers ! CRisi
 
 c
@@ -471 +471 @@
       do ifils=1,tracers(iq)%nqChildren
         iq2=tracers(iq)%iqDescen(ifils)
-        call vlx(Ratio,pente_max,masseq,u_mq,iq2)
+        CALL vlx(Ratio,pente_max,masseq,u_mq,iq2)
       enddo
 ! end CRisi
@@ -514 +514 @@
       END
       SUBROUTINE vlyqs(q,pente_max,masse,masse_adv_v,qsat,iq)
-      USE infotrac, ONLY : nqtot,tracers ! CRisi
+      USE infotrac, ONLY: nqtot,tracers ! CRisi
 c
 c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
@@ -779 +779 @@
         iq2=tracers(iq)%iqDescen(ifils)
         !write(*,*) 'vlyqs 783: appel rec de vly, iq2=',iq2
-        call vly(Ratio,pente_max,masseq,qbyv,iq2)
+        CALL vly(Ratio,pente_max,masseq,qbyv,iq2)
       enddo