source: LMDZ4/trunk/libf/dyn3dpar/mod_interface_dyn_phys.F90 @ 1080

Last change on this file since 1080 was 792, checked in by Laurent Fairhead, 17 years ago

Modifications suite a la transformation des fichiers include pour
qu'ils soient compatibles a la fois au format fixe et au format libre
Un bon nombre de fichier *.inc du coup disparaissent
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 905 bytes
Line 
1MODULE mod_interface_dyn_phys
2  INTEGER,SAVE,dimension(:),allocatable :: index_i
3  INTEGER,SAVE,dimension(:),allocatable :: index_j
4 
5 
6CONTAINS
7 
8  SUBROUTINE Init_interface_dyn_phys
9    USE mod_phys_lmdz_mpi_data
10    IMPLICIT NONE
11    include 'dimensions.h'   
12   
13    INTEGER :: i,j,k
14   
15    ALLOCATE(index_i(klon_mpi))
16    ALLOCATE(index_j(klon_mpi))
17   
18    k=1
19    IF (is_north_pole) THEN
20      index_i(k)=1
21      index_j(k)=1
22      k=2
23    ELSE
24      DO i=ii_begin,iim
25        index_i(k)=i
26        index_j(k)=jj_begin
27        k=k+1
28       ENDDO
29    ENDIF
30   
31    DO j=jj_begin+1,jj_end-1
32      DO i=1,iim
33        index_i(k)=i
34        index_j(k)=j
35        k=k+1
36      ENDDO
37    ENDDO
38   
39    IF (is_south_pole) THEN
40      index_i(k)=1
41      index_j(k)=jj_end
42    ELSE
43      DO i=1,ii_end
44        index_i(k)=i
45        index_j(k)=jj_end
46        k=k+1
47       ENDDO
48    ENDIF
49 
50  END SUBROUTINE Init_interface_dyn_phys
51
52END MODULE mod_interface_dyn_phys
Note: See TracBrowser for help on using the repository browser.