Sources/phylmd/cv_flag.f


!==================================================================
      SUBROUTINE cv_flag
            use cvflag
      implicit none


! -- si .TRUE., on rend la gravite plus explicite et eventuellement
! differente de 10.0 dans convect3:
      cvflag_grav = .TRUE.

      return
      end
1	guez	49
2			!==================================================================
3			SUBROUTINE cv_flag
4			use cvflag
5			implicit none
6
7
8			! -- si .TRUE., on rend la gravite plus explicite et eventuellement
9			! differente de 10.0 dans convect3:
10			cvflag_grav = .TRUE.
11
12			return
13			end