Changeset 2277 for LMDZ5/trunk/libf

Timestamp:

May 15, 2015, 4:24:34 PM (9 years ago)

Author:

fhourdin

Message:

Ajout d'une instruction RECURSIVE pour les routines d'advection
qui s'appellent elles-même.

Location:

LMDZ5/trunk/libf

Files:

• dyn3d/vlsplt.F (modified) (3 diffs)
• dyn3dmem/vlsplt_loc.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3d/vlsplt.F

@@ -141 +141 @@
       RETURN
       END
-      SUBROUTINE vlx(q,pente_max,masse,u_m,iq)
+      RECURSIVE SUBROUTINE vlx(q,pente_max,masse,u_m,iq)
       USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
 
@@ -515 +515 @@
       RETURN
       END
-      SUBROUTINE vly(q,pente_max,masse,masse_adv_v,iq)
+      RECURSIVE SUBROUTINE vly(q,pente_max,masse,masse_adv_v,iq)
       USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
 c
@@ -878 +878 @@
       RETURN
       END
-      SUBROUTINE vlz(q,pente_max,masse,w,iq)
+      RECURSIVE SUBROUTINE vlz(q,pente_max,masse,w,iq)
       USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi 
 c

LMDZ5/trunk/libf/dyn3dmem/vlsplt_loc.F

@@ -2 +2 @@
 ! $Id$
 !
-      SUBROUTINE vlx_loc(q,pente_max,masse,u_m,ijb_x,ije_x,iq)
+      RECURSIVE SUBROUTINE vlx_loc(q,pente_max,masse,u_m,ijb_x,ije_x,iq)
 
 c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
@@ -403 +403 @@
 
 
-      SUBROUTINE vly_loc(q,pente_max,masse,masse_adv_v,iq)
+      RECURSIVE SUBROUTINE vly_loc(q,pente_max,masse,masse_adv_v,iq)
 c
 c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
@@ -858 +858 @@
       
       
-      SUBROUTINE vlz_loc(q,pente_max,masse,w,ijb_x,ije_x,iq)
+      RECURSIVE SUBROUTINE vlz_loc(q,pente_max,masse,w,ijb_x,ije_x,iq)
 c
 c     Auteurs:   P.Le Van, F.Hourdin, F.Forget