Ignore:
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.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/vlsplt.F

    r2270 r2277  
    141141      RETURN
    142142      END
    143       SUBROUTINE vlx(q,pente_max,masse,u_m,iq)
     143      RECURSIVE SUBROUTINE vlx(q,pente_max,masse,u_m,iq)
    144144      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
    145145
    … …  
    515515      RETURN
    516516      END
    517       SUBROUTINE vly(q,pente_max,masse,masse_adv_v,iq)
     517      RECURSIVE SUBROUTINE vly(q,pente_max,masse,masse_adv_v,iq)
    518518      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
    519519c
    … …  
    878878      RETURN
    879879      END
    880       SUBROUTINE vlz(q,pente_max,masse,w,iq)
     880      RECURSIVE SUBROUTINE vlz(q,pente_max,masse,w,iq)
    881881      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
    882882c
Note: See TracChangeset for help on using the changeset viewer.