source: trunk/LMDZ.MARS/libf/phymars/comm_wrf.F90 @ 1292

Last change on this file since 1292 was 1236, checked in by aslmd, 12 years ago

MESOSCALE. A necessary complement commit to r1234 where a upgraded interface making use of modules was proposed. Completed the new formulation for module_lmd_driver for newphys with improved interface with both ini/bdy conditions and physical parameterizations. Changed the Registry accordingly. Finished changes about I/O with the LMD physics (see LMDZ.MARS/README). Made all those changes compatible for old interface, and LES runs (checked with test cases), as well as old input files. Changed makemeso to account for full flexibility on changin nx ny ntracers nproc with newphys. Cleaned the now obsolete bits of code used in LMD physics shared with the GCM. ----- Everything is now ready to properly code both restart runs and nesting for mesoscale runs with new physics.
File size: 1.5 KB
Line 
1module comm_wrf
2
3!!
4!! This module is useful to output fields in WRF style
5!!
6
7  REAL,SAVE,ALLOCATABLE :: comm_HR_SW(:,:)
8  REAL,SAVE,ALLOCATABLE :: comm_HR_LW(:,:)
9  REAL,SAVE,ALLOCATABLE :: comm_SWDOWNZ(:)
10  REAL,SAVE,ALLOCATABLE :: comm_TAU_DUST(:)
11  REAL,SAVE,ALLOCATABLE :: comm_RDUST(:,:)
12  REAL,SAVE,ALLOCATABLE :: comm_QSURFDUST(:)
13  REAL,SAVE,ALLOCATABLE :: comm_MTOT(:)
14  REAL,SAVE,ALLOCATABLE :: comm_ICETOT(:)
15  REAL,SAVE,ALLOCATABLE :: comm_VMR_ICE(:,:)
16  REAL,SAVE,ALLOCATABLE :: comm_TAU_ICE(:)
17  REAL,SAVE,ALLOCATABLE :: comm_RICE(:,:)
18
19contains
20
21  subroutine allocate_comm_wrf(ngrid,nlayer)
22  implicit none
23  integer,intent(in) :: ngrid ! number of atmospheric columns
24  integer,intent(in) :: nlayer ! number of atmospheric layers
25  allocate(comm_HR_SW(ngrid,nlayer))
26  allocate(comm_HR_LW(ngrid,nlayer))
27  allocate(comm_SWDOWNZ(ngrid))
28  allocate(comm_TAU_DUST(ngrid))
29  allocate(comm_RDUST(ngrid,nlayer))
30  allocate(comm_QSURFDUST(ngrid))
31  allocate(comm_MTOT(ngrid))
32  allocate(comm_ICETOT(ngrid))
33  allocate(comm_VMR_ICE(ngrid,nlayer))
34  allocate(comm_TAU_ICE(ngrid))
35  allocate(comm_RICE(ngrid,nlayer))
36  end subroutine allocate_comm_wrf
37
38  subroutine deallocate_comm_wrf
39  implicit none
40  deallocate(comm_HR_SW)
41  deallocate(comm_HR_LW)
42  deallocate(comm_SWDOWNZ)
43  deallocate(comm_TAU_DUST)
44  deallocate(comm_RDUST)
45  deallocate(comm_QSURFDUST)
46  deallocate(comm_MTOT)
47  deallocate(comm_ICETOT)
48  deallocate(comm_VMR_ICE)
49  deallocate(comm_TAU_ICE)
50  deallocate(comm_RICE)
51  end subroutine deallocate_comm_wrf
52
53end module comm_wrf
54
Note: See TracBrowser for help on using the repository browser.