[Dart-dev] DART/branches Revision: 11717

[dart at ucar.edu]

sergey.frolov at nrlmry.navy.mil
2017-06-13 15:18:53 -0600 (Tue, 13 Jun 2017)
48
added get_name_info.f90 coamps_intrinsic_mod.f90


Added: DART/branches/coamps/models/coamps_nest/coamps_intrinsic_mod.f90
===================================================================
--- DART/branches/coamps/models/coamps_nest/coamps_intrinsic_mod.f90	                        (rev 0)
+++ DART/branches/coamps/models/coamps_nest/coamps_intrinsic_mod.f90	2017-06-13 21:18:53 UTC (rev 11717)
@@ -0,0 +1,1704 @@
+!------------------------------
+! MODULE:       coamps_intrinsic_mod
+! AUTHOR:       T. R. Whitcomb
+!               Naval Research Laboratory
+! MODIFIED:     07 July 2008
+! DART VERSION: Jamaica
+!
+! Collect the routines taken directly from the COAMPS utility
+! package that have been translated to Fortran 90 and patched
+! to use real(kind=r8) instead of whatever was there before. 
+! This module is automatically generated.
+!------------------------------
+module coamps_intrinsic_mod
+  use types_mod, only : r8
+
+  implicit none
+
+  !------------------------------
+  ! BEGIN PUBLIC INTERFACE
+  !------------------------------
+
+  ! All routines are accessible
+  public
+  
+  !------------------------------
+  ! END PUBLIC INTERFACE
+  !------------------------------
+
+  !------------------------------
+  ! BEGIN EXTERNAL INTERFACES
+  !------------------------------
+  ! [none]
+  !------------------------------
+  ! END EXTERNAL INTERFACES
+  !------------------------------
+  !------------------------------
+  ! BEGIN TYPES AND CONSTANTS 
+  !------------------------------
+      real(kind=r8), parameter :: cp   = 1004.64
+      real(kind=r8), parameter :: g    = 9.80616
+      real(kind=r8), parameter :: rgas = 287.04
+      real(kind=r8), parameter :: cv   = cp-rgas
+      real(kind=r8), parameter :: rocp = rgas/cp
+      real(kind=r8), parameter :: cpor = cp/rgas
+      real(kind=r8), parameter :: p00  = 1.e5
+      real(kind=r8), parameter :: pi   = 3.141592741012573
+      real(kind=r8), parameter :: c27=2.5e6/1004.
+      real(kind=r8), parameter :: eps=0.622
+      real(kind=r8), parameter :: e0=6.11
+      real(kind=r8), parameter :: xl=2.5e6
+      real(kind=r8), parameter :: gamma=6.5e-3
+      real(kind=r8), parameter :: heatlv=597.3*4186.0
+      real(kind=r8), parameter :: heatls=677.0*4186.0
+      real(kind=r8), parameter :: hlvocp=heatlv/cp
+      real(kind=r8), parameter :: hlsocp=heatls/cp
+  !------------------------------
+  ! END TYPES AND CONSTANTS 
+  !------------------------------
+
+  !------------------------------
+  ! BEGIN MODULE VARIABLES
+  !------------------------------
+  ! [none]
+  !------------------------------
+  ! END MODULE VARIABLES
+  !------------------------------
+
+contains
+subroutine ij2ll(igrid,reflat,reflon,iref,jref,stdlt1,stdlt2&
+                      ,stdlon,delx,dely,grdi,grdj,npts&
+                      ,grdlat,grdlon)
+
+! rcs keywords: $RCSfile: ij2ll.f,v $ 
+!               $Revision: 1.1 $ $Date: 1997/12/05 20:19:58 $c
+!***********************************************************************
+!
+      implicit none
+!
+!***********************************************************************
+!           parameters:
+!***********************************************************************
+!
+      integer igrid
+      integer iref
+      integer jref
+      integer npts
+!
+      real(kind=r8) delx
+      real(kind=r8) dely
+      real(kind=r8) grdi   (npts)
+      real(kind=r8) grdj   (npts)
+      real(kind=r8) grdlat (npts)
+      real(kind=r8) grdlon (npts)
+      real(kind=r8) reflat
+      real(kind=r8) reflon
+      real(kind=r8) stdlon