Context Navigation

atm_tiles.F @ 642

Last change on this file since 642 was 1, checked in by lfita, 11 years ago

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.