source: LMDZ6/branches/Test_modipsl/libf/dyn3dmem/gradiv2_mod.F90 @ 4794

Last change on this file since 4794 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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: 802 bytes
Line 
1MODULE gradiv2_mod
2
3  REAL,POINTER,SAVE ::  gdx( :,: )
4  REAL,POINTER,SAVE ::  gdy( :,: )
5  REAL,POINTER,SAVE ::  div( :,: )
6 
7CONTAINS
8
9  SUBROUTINE gradiv2_allocate
10  USE bands
11  USE allocate_field_mod
12  USE parallel_lmdz
13  USE dimensions_mod
14  IMPLICIT NONE
15    TYPE(distrib),POINTER :: d
16    d=>distrib_dissip
17
18    CALL allocate_u(gdx,llm,d)
19    CALL allocate_v(gdy,llm,d)
20    CALL allocate_u(div,llm,d)
21
22   
23  END SUBROUTINE gradiv2_allocate
24 
25  SUBROUTINE gradiv2_switch_dissip(dist)
26  USE allocate_field_mod
27  USE bands
28  USE parallel_lmdz
29  IMPLICIT NONE
30    TYPE(distrib),INTENT(IN) :: dist
31
32    CALL switch_u(gdx,distrib_dissip,dist)
33    CALL switch_v(gdy,distrib_dissip,dist)
34    CALL switch_u(div,distrib_dissip,dist)
35
36
37  END SUBROUTINE gradiv2_switch_dissip
38 
39END MODULE gradiv2_mod 
Note: See TracBrowser for help on using the repository browser.