source: LMDZ5/branches/LF-private/libf/dyn3dmem/divgrad2_mod.F90 @ 5018

Last change on this file since 5018 was 1823, checked in by Ehouarn Millour, 11 years ago

Remplacement de parallel.F90 (en conflit avec orchidée) par parallel_lmdz.F90.
UG
.........................................
Renaming parallel.F90 (conflicting with orchidée) into parallel_lmdz.F90.
UG

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.