CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
date_def.f
1
3 module date_def
4 use machine, ONLY: kind_phys
5 implicit none
6
7!jw integer idate(4)
8!jw real(kind=kind_phys) fhour,shour,thour,z00
9 real(kind=kind_phys) shour,thour,z00
10 real(kind=kind_phys),target :: fhour, zhour
11 integer,target :: idate(4),idate7(7)
12!
13 REAL(kind=kind_phys) ,ALLOCATABLE :: spdmax(:)
14
15 end module date_def