source: LMDZ6/trunk/libf/dyn3dmem/divgrad2_mod.F90 @ 3784

Last change on this file since 3784 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: 599 bytes
Line 
1MODULE divgrad2_mod
2
3  REAL,POINTER,SAVE ::  divgra( :,: )
4 
5CONTAINS
6
7  SUBROUTINE divgrad2_allocate
8  USE bands
9  USE allocate_field_mod
10  USE parallel_lmdz
11  USE dimensions_mod
12  IMPLICIT NONE
13    TYPE(distrib),POINTER :: d
14    d=>distrib_dissip
15
16    CALL allocate_u(divgra,llm,d)
17
18   
19  END SUBROUTINE divgrad2_allocate
20 
21  SUBROUTINE divgrad2_switch_dissip(dist)
22  USE allocate_field_mod
23  USE bands
24  USE parallel_lmdz
25  IMPLICIT NONE
26    TYPE(distrib),INTENT(IN) :: dist
27
28    CALL switch_u(divgra,distrib_dissip,dist)
29
30
31  END SUBROUTINE divgrad2_switch_dissip
32 
33END MODULE divgrad2_mod 
Note: See TracBrowser for help on using the repository browser.