source: LMDZ5/branches/testing/libf/dyn3dmem/divgrad2_mod.F90 @ 3411

Last change on this file since 3411 was 1910, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1860:1909 into testing branch

  • 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.