source: lmdz_wrf/WRFV3/external/atm_ocn/atm_tiles.F @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 1.8 KB
Line 
1      SUBROUTINE ASSEMBLE(FG,FL,knd)
2
3      USE ATM_cc, ONLY: &
4     &                  ids,idf,jds,jdf,kds,kde, &
5     &                  ims,ime,jms,jme,kms,kme, &
6     &                  its,ite,jts,jte,kts,kte
7
8      USE MODULE_PATCH_QUILT
9
10      implicit none
11
12      real,dimension(ids:idf,jds:jdf),intent(out):: FG
13      real,dimension(ims:ime,jms:jme),intent(in) :: FL
14      integer,                        intent(in) :: knd
15
16      integer kl,kg
17!
18
19      kl=kind(FL)
20      kg=kind(FG)
21      if (knd.ne.kl .or. knd.ne.kg) then
22        print*,'knd must = loc. and glob. kinds in ASSEMBLE. '// &
23     &  'To generalize, call of QUILT_2 must be generalized ',knd,kl,kg
24        call GLOB_ABORT(1,'whong kinds in ASSEMBLE',1)
25      end if
26
27      call QUILT_2(FL,FG,ids,idf,jds,jdf,kds,kde, &
28     &ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte)
29
30      return
31      END
32!
33!***********************************************************************
34!
35      SUBROUTINE DISASSEMBLE(FG,FL,knd)
36
37      USE ATM_cc, ONLY: ids,idf,jds,jdf,kds,kde, &
38     &                  ims,ime,jms,jme,kms,kme, &
39     &                  its,ite,jts,jte,kts,kte
40
41      USE MODULE_PATCH_QUILT
42
43      implicit none
44
45      real,dimension(ids:idf,jds:jdf),intent(in) :: FG
46      real,dimension(ims:ime,jms:jme),intent(out):: FL
47      integer,                        intent(in) :: knd
48
49      integer kl,kg
50!
51
52      kl=kind(FL)
53      kg=kind(FG)
54      if (knd.ne.kl .or. knd.ne.kg) then
55        print*,'knd must = loc. and glob. kinds in DISASSEMBLE. '// &
56     &  'To generalize, call of PATCH must be generalized ',knd,kl,kg
57        call GLOB_ABORT(1,'whong kinds in DISASSEMBLE',1)
58      end if
59
60      call PATCH(FG,FL,ids,idf,jds,jdf,kds,kde, &
61     &ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte)
62
63      return
64      END
Note: See TracBrowser for help on using the repository browser.