source: LMDZ5/branches/testing/libf/dyn3dmem/integrd_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: 829 bytes
Line 
1MODULE integrd_mod
2
3  REAL,POINTER,SAVE :: p(:,:)
4  REAL,POINTER,SAVE :: deltap(:,:)
5  REAL,POINTER,SAVE :: ps(:)
6
7
8 
9CONTAINS
10
11  SUBROUTINE integrd_allocate
12  USE bands
13  USE allocate_field
14  USE parallel
15  USE dimensions
16  USE advect_new_mod,ONLY : advect_new_allocate
17  IMPLICIT NONE
18  TYPE(distrib),POINTER :: d
19
20
21    d=>distrib_caldyn
22    CALL allocate_u(p,llmp1,d)
23    CALL allocate_u(deltap,llm,d)
24    CALL allocate_u(ps,d)
25
26   
27  END SUBROUTINE integrd_allocate
28 
29  SUBROUTINE integrd_switch_caldyn(dist)
30  USE allocate_field
31  USE bands
32  USE parallel
33  IMPLICIT NONE
34    TYPE(distrib),INTENT(IN) :: dist
35
36    CALL switch_u(p,distrib_caldyn,dist)
37    CALL switch_u(deltap,distrib_caldyn,dist)
38    CALL switch_u(ps,distrib_caldyn,dist)
39
40   
41   
42  END SUBROUTINE integrd_switch_caldyn
43 
44
45 
46END MODULE integrd_mod 
Note: See TracBrowser for help on using the repository browser.