source: LMDZ5/branches/testing/libf/dyn3dmem/advtrac_mod.F90 @ 1695

MODULE advtrac_mod

  REAL,POINTER,SAVE :: finmasse(:,:)
  
CONTAINS

  SUBROUTINE advtrac_allocate
  USE bands
  USE allocate_field
  USE parallel
  USE infotrac
  USE vlspltgen_mod
  IMPLICIT NONE
  INCLUDE "dimensions.h"
  INCLUDE "paramet.h"
  TYPE(distrib),POINTER :: d
    
    d=>distrib_vanleer
    CALL allocate_u(finmasse,llm,d)
    CALL vlspltgen_allocate
  END SUBROUTINE advtrac_allocate
  
  SUBROUTINE advtrac_switch_vanleer(dist)
  USE allocate_field
  USE bands
  USE parallel
  USE vlspltgen_mod
  IMPLICIT NONE
    TYPE(distrib),INTENT(IN) :: dist
  
    CALL switch_u(finmasse,distrib_vanleer,dist)

    CALL vlspltgen_switch_vanleer(dist)

  END SUBROUTINE advtrac_switch_vanleer  
  
END MODULE advtrac_mod