Changeset 8a65cb0 in flexpart.git for src/oh_mod.f90

Timestamp:

Mar 2, 2015, 3:11:55 PM (9 years ago)

Author:

Espen Sollum ATMOS <espen@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

1d207bb

Parents:

60403cd

Message:

Added code, makefile for dev branch

File:

• src/oh_mod.f90 (modified) (1 diff)

src/oh_mod.f90

@@ -27 +27 @@
   implicit none
 
-  real,allocatable, dimension (:,:,:,:) :: OH_field
-  real,allocatable, dimension (:) :: OH_field_height
+  integer :: nxOH,nyOH,nzOH
+  real, allocatable, dimension(:) :: lonOH,latOH,altOH
+  real, allocatable, dimension(:,:,:,:) :: OH_hourly
+  real, allocatable, dimension (:,:,:,:) :: OH_field
+  real, dimension(2) :: memOHtime
+  real, dimension(360,180,12) :: jrate_average
+  real, dimension(360) :: lonjr
+  real, dimension(180) :: latjr
 
 end module oh_mod