source: LMDZ6/branches/DYNAMICO-conv-GC/libf/dyn3dmem/integrd_mod.F90 @ 3406

Last change on this file since 3406 was 3406, checked in by jghattas, 6 years ago

Added all modifications in the model code that were used for the simulations with DYANMICO during the Grand Challeng 2018. Modifications done by Y. Meurdesoif, L. Fairhead and A.K. Traore

  • 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: 863 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_mod
14  USE parallel_lmdz
15  USE dimensions_mod
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    ps(:)=0
26
27   
28  END SUBROUTINE integrd_allocate
29 
30  SUBROUTINE integrd_switch_caldyn(dist)
31  USE allocate_field_mod
32  USE bands
33  USE parallel_lmdz
34  IMPLICIT NONE
35    TYPE(distrib),INTENT(IN) :: dist
36
37    CALL switch_u(p,distrib_caldyn,dist)
38    CALL switch_u(deltap,distrib_caldyn,dist)
39    CALL switch_u(ps,distrib_caldyn,dist)
40
41   
42   
43  END SUBROUTINE integrd_switch_caldyn
44 
45
46 
47END MODULE integrd_mod 
Note: See TracBrowser for help on using the repository browser.