Parent Directory | Revision Log | Patch
trunk/libf/phylmd/Orography/start_init_orog_m.f90 revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC | trunk/phylmd/Orography/start_init_orog_m.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC | |
---|---|---|
# | Line 91 CONTAINS | Line 91 CONTAINS |
91 | ||
92 | print *, 'Compute all the parameters needed for the gravity wave drag code' | print *, 'Compute all the parameters needed for the gravity wave drag code' |
93 | ||
94 | ! Allocate the data we need to put in the interpolated fields: | ! Interpolated fields: |
95 | ALLOCATE(phis(iim + 1, jjm + 1)) | ALLOCATE(phis(iim + 1, jjm + 1)) |
96 | ALLOCATE(mask(iim + 1, jjm + 1)) | ALLOCATE(mask(iim + 1, jjm + 1)) |
97 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |