Ignore:
Timestamp:
May 15, 2015, 4:24:34 PM (10 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/dyn3dmem/vlsplt_loc.F

    r2270 r2277  
    22! $Id$
    33!
    4       SUBROUTINE vlx_loc(q,pente_max,masse,u_m,ijb_x,ije_x,iq)
     4      RECURSIVE SUBROUTINE vlx_loc(q,pente_max,masse,u_m,ijb_x,ije_x,iq)
    55
    66c     Auteurs:   P.Le Van, F.Hourdin, F.Forget
    … …  
    403403
    404404
    405       SUBROUTINE vly_loc(q,pente_max,masse,masse_adv_v,iq)
     405      RECURSIVE SUBROUTINE vly_loc(q,pente_max,masse,masse_adv_v,iq)
    406406c
    407407c     Auteurs:   P.Le Van, F.Hourdin, F.Forget
    … …  
    858858     
    859859     
    860       SUBROUTINE vlz_loc(q,pente_max,masse,w,ijb_x,ije_x,iq)
     860      RECURSIVE SUBROUTINE vlz_loc(q,pente_max,masse,w,ijb_x,ije_x,iq)
    861861c
    862862c     Auteurs:   P.Le Van, F.Hourdin, F.Forget
Note: See TracChangeset for help on using the changeset viewer.