source: trunk/MESOSCALE_DEV/SRC/ARWpost/src/module_calc_height.f90 @ 777

Last change on this file since 777 was 207, checked in by aslmd, 14 years ago

MESOSCALE: A GENERAL CLEAN-UP FOLLOWING UPDATING THE USER MANUAL. EVERYTHING ESSENTIAL IS IN MESOSCALE (much lighter than before). EVERYTHING FOR DEVELOPPERS OR EXPERTS IS IN MESOSCALE_DEV.

File size: 462 bytes
Line 
1!! Diagnostics: Height
2
3MODULE module_calc_height
4
5  CONTAINS
6  SUBROUTINE calc_height(SCR, cname, cdesc, cunits)
7
8  USE constants_module
9  USE module_model_basics
10
11  !Arguments
12  real, pointer, dimension(:,:,:)       :: SCR
13  character (len=128)                   :: cname, cdesc, cunits
14
15 
16  SCR      = ( (PH+PHB) / G ) / 1000.
17  cname    = "height"
18  cdesc    = "Model height"
19  cunits   = "KM"
20 
21  END SUBROUTINE calc_height
22
23END MODULE module_calc_height
Note: See TracBrowser for help on using the repository browser.