source: LMDZ5/branches/testing/libf/dyn3dmem/dissip_mod.F90 @ 1856

Last change on this file since 1856 was 1669, checked in by Laurent Fairhead, 12 years ago

Version testing basée sur la r1668

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires


Testing release based on r1668

File size: 869 bytes
Line 
1MODULE dissip_mod
2
3
4 
5CONTAINS
6
7  SUBROUTINE dissip_allocate
8  USE bands
9  USE allocate_field
10  USE parallel
11  USE dimensions
12  USE gradiv2_mod, ONLY : gradiv2_allocate
13  USE nxgraro2_mod, ONLY : nxgraro2_allocate
14  USE divgrad2_mod, ONLY : divgrad2_allocate
15  IMPLICIT NONE
16
17    CALL gradiv2_allocate
18    CALL nxgraro2_allocate
19    CALL divgrad2_allocate
20
21   
22  END SUBROUTINE dissip_allocate
23 
24  SUBROUTINE dissip_switch_dissip(dist)
25  USE allocate_field
26  USE bands
27  USE parallel
28  USE gradiv2_mod,ONLY : gradiv2_switch_dissip
29  USE nxgraro2_mod,ONLY : nxgraro2_switch_dissip
30  USE divgrad2_mod,ONLY : divgrad2_switch_dissip
31  IMPLICIT NONE
32    TYPE(distrib),INTENT(IN) :: dist
33
34    CALL gradiv2_switch_dissip(dist)
35    CALL nxgraro2_switch_dissip(dist)
36    CALL divgrad2_switch_dissip(dist)
37   
38  END SUBROUTINE dissip_switch_dissip
39 
40END MODULE dissip_mod 
Note: See TracBrowser for help on using the repository browser.