source: LMDZ6/trunk/libf/dyn3dmem/groupe_mod.f90 @ 5278

MODULE groupe_mod

  REAL,POINTER,SAVE :: zconvm(:,:,:)
  REAL,POINTER,SAVE :: zconvmm(:,:,:)
  
CONTAINS

  SUBROUTINE groupe_allocate
  USE bands
  USE allocate_field_mod
  USE parallel_lmdz
!  USE infotrac
  USE advtrac_mod, ONLY : advtrac_allocate 
  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
IMPLICIT NONE


  TYPE(distrib),POINTER :: d

    d=>distrib_caldyn
    CALL allocate2d_u(zconvm,llm,d)
    CALL allocate2d_u(zconvmm,llm,d)


  END SUBROUTINE groupe_allocate
  
  SUBROUTINE groupe_switch_caldyn(dist)
  USE allocate_field_mod
  USE bands
  USE parallel_lmdz
  IMPLICIT NONE
    TYPE(distrib),INTENT(IN) :: dist

    CALL switch2d_u(zconvm,distrib_caldyn,dist)
    CALL switch2d_u(zconvmm,distrib_caldyn,dist)

  END SUBROUTINE groupe_switch_caldyn
  

  
END MODULE groupe_mod