trunk/phylmd/cv_flag.f90


!==================================================================
      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
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