source: LMDZ5/branches/IPSLCM6.0.11.rc1/libf/dyn3dmem/advtrac_mod.F90 @ 5336

Last change on this file since 5336 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 749 bytes
Line 
1MODULE advtrac_mod
2
3  REAL,POINTER,SAVE :: finmasse(:,:)
4 
5CONTAINS
6
7  SUBROUTINE advtrac_allocate
8  USE bands
9  USE allocate_field_mod
10  USE parallel_lmdz
11  USE infotrac
12  USE vlspltgen_mod
13  IMPLICIT NONE
14  INCLUDE "dimensions.h"
15  INCLUDE "paramet.h"
16  TYPE(distrib),POINTER :: d
17   
18    d=>distrib_vanleer
19    CALL allocate_u(finmasse,llm,d)
20    CALL vlspltgen_allocate
21  END SUBROUTINE advtrac_allocate
22 
23  SUBROUTINE advtrac_switch_vanleer(dist)
24  USE allocate_field_mod
25  USE bands
26  USE parallel_lmdz
27  USE vlspltgen_mod
28  IMPLICIT NONE
29    TYPE(distrib),INTENT(IN) :: dist
30 
31    CALL switch_u(finmasse,distrib_vanleer,dist)
32
33    CALL vlspltgen_switch_vanleer(dist)
34
35  END SUBROUTINE advtrac_switch_vanleer 
36 
37END MODULE advtrac_mod 
Note: See TracBrowser for help on using the repository browser.