source: trunk/WRF.COMMON/INTERFACES/dynphy_wrf_prescribed_void_lmd/callphysiq_mod.F @ 3709

Last change on this file since 3709 was 2277, checked in by mlefevre, 6 years ago

MESOSCALE. Updates of physics interface for Venus, prescribed and void physics.
File size: 1.3 KB
Line 
1!
2! $Id: $
3!
4MODULE callphysiq_mod
5
6IMPLICIT NONE
7
8 !! ----------------------------------------------------------
9 !! ---- CALL TO NO PHYSICS
10 !! ----------------------------------------------------------
11
12CONTAINS
13
14SUBROUTINE call_physiq(planet_type, klon,llm,nqtot,                       &
15                       debut_split,lafin_split)
16
17  USE variables_mod
18
19  IMPLICIT NONE
20
21  character(len=10),INTENT(IN) :: planet_type ! planet type ('earth','mars',...)
22  INTEGER,INTENT(IN) :: klon ! (local) number of atmospheric columns
23  INTEGER,INTENT(IN) :: llm  ! number of atmospheric layers
24  INTEGER,INTENT(IN) :: nqtot ! number of tracers
25  LOGICAL,INTENT(IN) :: debut_split ! .true. if very first call to physics
26  LOGICAL,INTENT(IN) :: lafin_split ! .true. if last call to physics
27  ! data file
28  INTEGER :: i,k
29  REAL :: hr_sw(llm)
30  REAL :: hr_lw(llm)
31  REAL :: hr_dyn(llm)
32
33  open(17,file='prescribed_sw.txt',form='formatted',status='old')
34  open(18,file='prescribed_lw.txt',form='formatted',status='old')
35  open(19,file='prescribed_dyn.txt',form='formatted',status='old')
36  rewind(17)
37  rewind(18)
38  rewind(19)
39  DO k=1,llm
40    read(17,*) hr_sw(k)
41    read(18,*) hr_lw(k)
42    read(19,*) hr_dyn(k)
43  ENDDO
44  close(17)
45  close(18)
46  close(19)
47
48  DO i=1,klon
49    zdtfi_omp(i,:)=hr_sw(:)+hr_lw(:)+hr_dyn(:)
50  ENDDO
51
52
53END SUBROUTINE call_physiq
54
55END MODULE callphysiq_mod
Note: See TracBrowser for help on using the repository browser.