source: LMDZ6/trunk/libf/dyn3dmem/nxgraro2_mod.f90 @ 5407

Last change on this file since 5407 was 5272, checked in by abarral, 7 weeks ago

Turn paramet.h into a module

  • 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: 834 bytes
RevLine 
[1632]1MODULE nxgraro2_mod
2
3  REAL,POINTER,SAVE ::  grx( :,: )
4  REAL,POINTER,SAVE ::  gry( :,: )
5  REAL,POINTER,SAVE ::  rot( :,: )
6 
7CONTAINS
8
9  SUBROUTINE nxgraro2_allocate
10  USE bands
[1810]11  USE allocate_field_mod
[1823]12  USE parallel_lmdz
[5272]13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
14  IMPLICIT NONE
[1632]15    TYPE(distrib),POINTER :: d
16    d=>distrib_dissip
17
18    CALL allocate_u(grx,llm,d)
19    CALL allocate_v(gry,llm,d)
20    CALL allocate_v(rot,llm,d)
21
22   
23  END SUBROUTINE nxgraro2_allocate
24 
25  SUBROUTINE nxgraro2_switch_dissip(dist)
[1810]26  USE allocate_field_mod
[1632]27  USE bands
[1823]28  USE parallel_lmdz
[1632]29  IMPLICIT NONE
30    TYPE(distrib),INTENT(IN) :: dist
31
32    CALL switch_u(grx,distrib_dissip,dist)
33    CALL switch_v(gry,distrib_dissip,dist)
34    CALL switch_v(rot,distrib_dissip,dist)
35
36
37  END SUBROUTINE nxgraro2_switch_dissip
38 
39END MODULE nxgraro2_mod 
Note: See TracBrowser for help on using the repository browser.