Add files via upload
This commit is contained in:
Xuesong (Steve)
716
code/modified/pressure_mod.f
Normal file
716
code/modified/pressure_mod.f
Normal file
@ -0,0 +1,716 @@
|
||||
! $Id: pressure_mod.f,v 1.1 2009/06/12 21:14:32 daven Exp $
|
||||
MODULE PRESSURE_MOD
|
||||
!
|
||||
!******************************************************************************
|
||||
! Module PRESSURE_MOD contains variables and routines which specify the grid
|
||||
! box pressures for both hybrid or pure-sigma models. This is necessary
|
||||
! for running GEOS-CHEM with the new GEOS-4/fvDAS meteorological fields.
|
||||
! (dsa, bmy, 8/27/02, 10/30/07)
|
||||
!
|
||||
! Module Variables:
|
||||
! ============================================================================
|
||||
! (1 ) AP (REAL*8) : "A" term for hybrid ETA coordinate
|
||||
! (2 ) BP (REAL*8) : "B" term for hybrid ETA coordinate
|
||||
! (3 ) PFLT (REAL*8) : "Floating" surface pressure field
|
||||
!
|
||||
! Module Routines:
|
||||
! ============================================================================
|
||||
! (1 ) GET_AP : Returns "A" term for hybrid ETA coordinate
|
||||
! (2 ) GET_BP : Returns "B" term for hybrid ETA coordinate
|
||||
! (3 ) SET_FLOATING_PRESSURE : Initializes PFLT w/ Psurface from "main.f"
|
||||
! (4 ) GET_PEDGE : Returns pressure at bottom edge of box (I,J L)
|
||||
! (5 ) GET_PCENTER : Returns pressure at center of box (I,J,L)
|
||||
! (6 ) INIT_PRESSURE : Allocates and zeroes all module arrays
|
||||
! (7 ) CLEANUP_PRESSURE : Deallocates all module arrays
|
||||
! (8 ) GET_PFLT : returns PFLT (dkh, 06/11/09)
|
||||
!
|
||||
! GEOS-CHEM modules referenced by pressure_mod.f
|
||||
! ============================================================================
|
||||
! (1 ) error_mod.f : Module w/ I/O error and NaN check routines
|
||||
!
|
||||
! Hybrid Grid Coordinate Definition: (dsa, bmy, 8/27/02, 10/30/07)
|
||||
! ============================================================================
|
||||
!
|
||||
! GEOS-4 and GEOS-5 (hybrid grids):
|
||||
! ----------------------------------------------------------------------------
|
||||
! For GEOS-4 and GEOS-5, the pressure at the bottom edge of grid box (I,J,L)
|
||||
! is defined as follows:
|
||||
!
|
||||
! Pedge(I,J,L) = Ap(L) + [ Bp(L) * Psurface(I,J) ]
|
||||
!
|
||||
! where
|
||||
!
|
||||
! Psurface(I,J) is the "true" surface pressure at lon,lat (I,J)
|
||||
! Ap(L) has the same units as surface pressure [hPa]
|
||||
! Bp(L) is a unitless constant given at level edges
|
||||
!
|
||||
! Ap(L) and Bp(L) are given to us by GMAO.
|
||||
!
|
||||
!
|
||||
! GEOS-3 (pure-sigma) and GCAP (hybrid grid):
|
||||
! ----------------------------------------------------------------------------
|
||||
! GEOS-3 is a pure-sigma grid. GCAP is a hybrid grid, but its grid is
|
||||
! defined as if it were a pure sigma grid (i.e. PTOP=150 hPa, and negative
|
||||
! sigma edges at higher levels). For these grids, can stil use the same
|
||||
! formula as for GEOS-4, with one modification:
|
||||
!
|
||||
! Pedge(I,J,L) = Ap(L) + [ Bp(L) * ( Psurface(I,J) - PTOP ) ]
|
||||
!
|
||||
! where
|
||||
!
|
||||
! Psurface(I,J) = the "true" surface pressure at lon,lat (I,J)
|
||||
! Ap(L) = PTOP = model top pressure
|
||||
! Bp(L) = SIGE(L) = bottom sigma edge of level L
|
||||
!
|
||||
!
|
||||
! The following are true for GCAP, GEOS-3, GEOS-4:
|
||||
! ----------------------------------------------------------------------------
|
||||
! (1) Bp(LLPAR+1) = 0.0 (L=LLPAR+1 is the atmosphere top)
|
||||
! (2) Bp(1) = 1.0 (L=1 is the surface )
|
||||
! (3) PTOP = Ap(LLPAR+1) (L=LLPAR+1 is the atmosphere top)
|
||||
!
|
||||
!
|
||||
! NOTES:
|
||||
! (1 ) Be sure to check PFLT for NaN or Infinities (bmy, 8/27/02)
|
||||
! (2 ) Updated comments (bmy, 5/8/03)
|
||||
! (3 ) Updated format string for fvDAS (bmy, 6/19/03)
|
||||
! (4 ) Bug fix: use PFLT instead of PFLT-PTOP for GEOS-4 (bmy, 10/24/03)
|
||||
! (5 ) Modifications for 30L and 55L GEOS-4 grids (bmy, 11/3/03)
|
||||
! (6 ) Added parallel DO-loop in SET_FLOATING_PRESSURE (bmy, 4/14/04)
|
||||
! (7 ) Modified for GCAP and GEOS-5 grids (swu, bmy, 5/24/05)
|
||||
! (8 ) Removed obsolete reference to "CMN" (bmy, 4/25/06)
|
||||
! (9 ) Remove support for GEOS-1 and GEOS-STRAT met fields (bmy, 8/4/06)
|
||||
! (10) Added Ap and Bp for GEOS-5 met fields (bmy, 10/30/07)
|
||||
!******************************************************************************
|
||||
!
|
||||
IMPLICIT NONE
|
||||
|
||||
!=================================================================
|
||||
! MODULE PRIVATE DECLARATIONS -- keep certain internal variables
|
||||
! and routines from being seen outside "pressure_mod.f"
|
||||
!=================================================================
|
||||
|
||||
! Make everything PRIVATE ...
|
||||
PRIVATE
|
||||
|
||||
! ... and these routines
|
||||
PUBLIC :: CLEANUP_PRESSURE
|
||||
PUBLIC :: GET_AP
|
||||
PUBLIC :: GET_BP
|
||||
PUBLIC :: GET_PCENTER
|
||||
PUBLIC :: GET_PEDGE
|
||||
PUBLIC :: INIT_PRESSURE
|
||||
PUBLIC :: SET_FLOATING_PRESSURE
|
||||
PUBLIC :: GET_PFLT
|
||||
|
||||
!=================================================================
|
||||
! MODULE VARIABLES
|
||||
!=================================================================
|
||||
|
||||
! Arrays
|
||||
REAL*8, ALLOCATABLE :: AP(:)
|
||||
REAL*8, ALLOCATABLE :: BP(:)
|
||||
REAL*8, ALLOCATABLE :: PFLT(:,:)
|
||||
|
||||
!=================================================================
|
||||
! MODULE ROUTINES -- follow below the "CONTAINS" statement
|
||||
!=================================================================
|
||||
CONTAINS
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
FUNCTION GET_AP( L ) RESULT( AP_TEMP )
|
||||
!
|
||||
!******************************************************************************
|
||||
! Function GET_AP returns the "A" term [hPa] for the hybrid ETA coordinate.
|
||||
! (dsa, bmy, 8/20/02)
|
||||
!
|
||||
! Arguments as Input:
|
||||
! ============================================================================
|
||||
! (1 ) L (INTEGER) : AP will be returned at the bottom edge of level L
|
||||
!
|
||||
! NOTES:
|
||||
!******************************************************************************
|
||||
!
|
||||
# include "CMN_SIZE" ! Size parameters
|
||||
|
||||
! Arguments
|
||||
INTEGER, INTENT(IN) :: L
|
||||
|
||||
! Local variables
|
||||
REAL*8 :: AP_TEMP
|
||||
|
||||
!=================================================================
|
||||
! GET_AP begins here!
|
||||
!=================================================================
|
||||
AP_TEMP = AP(L)
|
||||
|
||||
! Return to calling program
|
||||
END FUNCTION GET_AP
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
FUNCTION GET_BP( L ) RESULT( BP_TEMP )
|
||||
!
|
||||
!******************************************************************************
|
||||
! Function GET_BP returns the "B" term [unitless] for the hybrid ETA
|
||||
! coordinate (dsa, bmy, 8/20/02)
|
||||
!
|
||||
! Arguments as Input:
|
||||
! ============================================================================
|
||||
! (1 ) L (INTEGER) : BP will be returned at the bottom edge of level L
|
||||
!
|
||||
! NOTES:
|
||||
!******************************************************************************
|
||||
!
|
||||
# include "CMN_SIZE"
|
||||
|
||||
INTEGER, INTENT(IN) :: L !edge level
|
||||
|
||||
REAL*8 :: BP_TEMP
|
||||
|
||||
!=================================================================
|
||||
! GET_BP begins here!
|
||||
!=================================================================
|
||||
BP_TEMP = BP(L)
|
||||
|
||||
! Return to calling program
|
||||
END FUNCTION GET_BP
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
SUBROUTINE SET_FLOATING_PRESSURE( PS )
|
||||
!
|
||||
!******************************************************************************
|
||||
! Subroutine SET_FLOATING_PRESSURE initializes the floating pressure field
|
||||
! PFLT with a pressure from the main program. This is needed to initialize
|
||||
! and reset PFLT after transport. (dsa, bdf, bmy, 8/27/02, 4/14/04)
|
||||
!
|
||||
! Arguments as Input:
|
||||
! ============================================================================
|
||||
! (1 ) PS (REAL*8) :: Array containing pressure with which to initialize PFLT
|
||||
!
|
||||
! NOTES:
|
||||
! (1 ) Now check PFLT for NaN or Infinities (bmy, 8/27/02)
|
||||
! (2 ) Added parallel DO-loop (bmy, 4/14/04)
|
||||
!******************************************************************************
|
||||
!
|
||||
! References to F90 modules
|
||||
USE ERROR_MOD, ONLY : CHECK_VALUE
|
||||
|
||||
# include "CMN_SIZE" ! Size parameters
|
||||
|
||||
! Arguments
|
||||
REAL*8, INTENT(IN) :: PS(:,:)
|
||||
|
||||
! Local variables
|
||||
INTEGER :: I, J
|
||||
|
||||
! Avoid array temporaries in CHECK_VALUE
|
||||
INTEGER :: ERR_LOC(4)
|
||||
CHARACTER(LEN=255) :: ERR_VAR
|
||||
CHARACTER(LEN=255) :: ERR_MSG
|
||||
|
||||
!=================================================================
|
||||
! SET_FLOATING_PRESSURE begins here!
|
||||
!=================================================================
|
||||
!$OMP PARALLEL DO
|
||||
!$OMP+DEFAULT( SHARED )
|
||||
!$OMP+PRIVATE( I, J )
|
||||
DO J = 1, JJPAR
|
||||
DO I = 1, IIPAR
|
||||
|
||||
! Assign into PFLT array
|
||||
PFLT(I,J) = PS(I,J)
|
||||
|
||||
! Check for NaN or Infinities
|
||||
ERR_LOC = (/ I, J, 0, 0 /)
|
||||
ERR_VAR = 'PFLT'
|
||||
ERR_MSG = 'STOP at set_floating_presure:1'
|
||||
CALL CHECK_VALUE( PFLT(I,J), ERR_LOC,
|
||||
& ERR_VAR, ERR_MSG )
|
||||
ENDDO
|
||||
ENDDO
|
||||
!$OMP END PARALLEL DO
|
||||
|
||||
! Return to calling program
|
||||
END SUBROUTINE SET_FLOATING_PRESSURE
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
FUNCTION GET_PEDGE( I, J, L ) RESULT( PEDGE )
|
||||
!
|
||||
!******************************************************************************
|
||||
! Function GET_PEDGE returns the pressure at the bottom edge of level L.
|
||||
! L=1 is the surface, L=LLPAR+1 is the atm top. (dsa, bmy, 8/20/02, 10/30/07)
|
||||
!
|
||||
! Arguments as Input:
|
||||
! ============================================================================
|
||||
! (1 ) I (INTEGER) : GEOS-Chem longitude index
|
||||
! (2 ) J (INTEGER) : GEOS-Chem latitude index
|
||||
! (3 ) L (INTEGER) : GEOS-Chem level index
|
||||
!
|
||||
! NOTES:
|
||||
! (1 ) Bug fix: use PFLT instead of PFLT-PTOP for GEOS-4 (bmy, 10/24/03)
|
||||
! (2 ) Now treat GEOS-5 the same way as GEOS-4 (bmy, 10/30/07)
|
||||
!******************************************************************************
|
||||
!
|
||||
# include "CMN_SIZE" ! PTOP
|
||||
|
||||
! Arguments
|
||||
INTEGER, INTENT(IN) :: I, J, L
|
||||
|
||||
! Return value
|
||||
REAL*8 :: PEDGE
|
||||
|
||||
!=================================================================
|
||||
! GET_PEDGE begins here!
|
||||
!=================================================================
|
||||
|
||||
#if defined( GEOS_4 ) || defined( GEOS_5 ) || defined( GEOS_FP )
|
||||
|
||||
!-----------------------------
|
||||
! GEOS-4 & GEOS-5 met fields
|
||||
!-----------------------------
|
||||
|
||||
! Pressure [hPa] at bottom edge of level L (see documentation header)
|
||||
PEDGE = AP(L) + ( BP(L) * PFLT(I,J) )
|
||||
|
||||
#else
|
||||
|
||||
!-----------------------------
|
||||
! GEOS-3 & GCAP met fields
|
||||
!-----------------------------
|
||||
|
||||
! Pressure [hPa] at bottom edge of level L (see documentation header)
|
||||
PEDGE = AP(L) + ( BP(L) * ( PFLT(I,J) - PTOP ) )
|
||||
|
||||
#endif
|
||||
|
||||
! Return to calling program
|
||||
END FUNCTION GET_PEDGE
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
FUNCTION GET_PCENTER( I, J, L ) RESULT( PCENTER )
|
||||
!
|
||||
!******************************************************************************
|
||||
! Function GET_PEDGE returns the pressure at the bottom edge of level L.
|
||||
! (dsa, bmy, 8/20/02, 4/25/06)
|
||||
!
|
||||
! Arguments as Input:
|
||||
! ============================================================================
|
||||
! (1 ) P_BOT (REAL*8 ) : P_surface - P_top (PS-PTOP)
|
||||
! (2 ) L (INTEGER) : Pressure will be returned at the center of level L
|
||||
!
|
||||
! NOTES:
|
||||
! (1 ) Updated format string for fvDAS (bmy, 6/19/03)
|
||||
! (2 ) Removed reference to "CMN", it's obsolete (bmy, 4/25/06)
|
||||
!******************************************************************************
|
||||
!
|
||||
# include "CMN_SIZE" ! Size parameters
|
||||
|
||||
! Arguments
|
||||
INTEGER, INTENT(IN) :: I, J, L
|
||||
|
||||
! Return value
|
||||
REAL*8 :: PCENTER
|
||||
|
||||
!=================================================================
|
||||
! GET_PCENTER begins here!
|
||||
!=================================================================
|
||||
|
||||
! The pressure at the center of a grid-box is found
|
||||
! by averaging the pressures at the box's two edges
|
||||
PCENTER = 0.5d0 * ( GET_PEDGE(I,J,L) + GET_PEDGE(I,J,L+1) )
|
||||
|
||||
! Return to calling program
|
||||
END FUNCTION GET_PCENTER
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
SUBROUTINE INIT_PRESSURE
|
||||
!
|
||||
!******************************************************************************
|
||||
! Subroutine INIT_PRESSURE allocates and initializes the AP and BP arrays.
|
||||
! It must be called in "main.f", after SIGE is defined. GEOS-4 uses fvDAS,
|
||||
! which requires the hybrid pressure system specified by the listed values
|
||||
! of AP and BP, while earlier versions of GEOS use a pure sigma pressure
|
||||
! system. GCAP met fields (based on GISS) also use a hybrid system.
|
||||
! (dsa, swu, bmy, 8/20/02, 10/30/07)
|
||||
!
|
||||
! NOTES:
|
||||
! (1 ) Now reference ALLOC_ERR from "error_mod.f" (bmy, 10/15/02)
|
||||
! (2 ) Now echo Ap, Bp to std output (bmy, 3/14/03)
|
||||
! (3 ) Now print LLPAR+1 levels for Ap, Bp. Remove reference to SIGE, it's
|
||||
! obsolete. Also now use C-preprocessor switch GRID30LEV instead of
|
||||
! IF statements to define vertical coordinates. (bmy, 11/3/03)
|
||||
! (4 ) Now modified for both GCAP & GEOS-5 vertical grids (swu, bmy, 5/24/05)
|
||||
! (5 ) Renamed GRID30LEV to GRIDREDUCED (bmy, 10/30/07)
|
||||
!******************************************************************************
|
||||
!
|
||||
! References to F90 modules
|
||||
USE ERROR_MOD, ONLY : ALLOC_ERR
|
||||
|
||||
# include "CMN_SIZE" ! LLPAR, PTOP
|
||||
|
||||
! Local Variables
|
||||
INTEGER :: AS
|
||||
INTEGER :: L
|
||||
|
||||
! Temporary array for GCAP met fields (swu, bmy, 5/24/05)
|
||||
REAL*8 :: SIGE_GCAP(LLPAR+1)
|
||||
|
||||
!=================================================================
|
||||
! INIT_PRESSURE begins here!
|
||||
!=================================================================
|
||||
ALLOCATE( PFLT( IIPAR, JJPAR ), STAT=AS )
|
||||
IF ( AS /= 0 ) CALL ALLOC_ERR( 'PFLT' )
|
||||
PFLT = 0d0
|
||||
|
||||
ALLOCATE( AP( LLPAR+1 ), STAT=AS )
|
||||
IF ( AS /= 0 ) CALL ALLOC_ERR( 'AP' )
|
||||
AP = 1d0
|
||||
|
||||
ALLOCATE( BP( LLPAR+1 ), STAT=AS )
|
||||
IF ( AS /= 0 ) CALL ALLOC_ERR( 'BP' )
|
||||
BP = 0d0
|
||||
|
||||
#if defined( GEOS_5 ) || defined( GEOS_FP )
|
||||
|
||||
!=================================================================
|
||||
! GEOS-5 vertical coordinates (47 or 72 levels)
|
||||
!=================================================================
|
||||
|
||||
#if defined( GRIDREDUCED )
|
||||
|
||||
!-----------------------------------
|
||||
! GEOS-5 47 level grid
|
||||
!
|
||||
! level Edge # L's
|
||||
! edge Prs hPa lumped
|
||||
!
|
||||
! 48 0.0100 (4)
|
||||
! 47 0.0660 (4)
|
||||
! 46 0.2113 (4)
|
||||
! 45 0.6168 (4)
|
||||
! 44 1.6508 (4)
|
||||
! 43 4.0766 (4)
|
||||
! 42 9.2929 (4)
|
||||
! 41 19.7916 (2)
|
||||
! 40 28.3678 (2)
|
||||
! 39 40.1754 (2)
|
||||
! 38 56.3879 (2)
|
||||
! -- keep levels below this line --
|
||||
! 37 78.5123
|
||||
! 36 92.3657
|
||||
!-----------------------------------
|
||||
|
||||
! Ap [hPa] for 47 levels (48 edges)
|
||||
AP = (/ 0.000000d+00, 4.804826d-02, 6.593752d+00, 1.313480d+01,
|
||||
& 1.961311d+01, 2.609201d+01, 3.257081d+01, 3.898201d+01,
|
||||
& 4.533901d+01, 5.169611d+01, 5.805321d+01, 6.436264d+01,
|
||||
& 7.062198d+01, 7.883422d+01, 8.909992d+01, 9.936521d+01,
|
||||
& 1.091817d+02, 1.189586d+02, 1.286959d+02, 1.429100d+02,
|
||||
& 1.562600d+02, 1.696090d+02, 1.816190d+02, 1.930970d+02,
|
||||
& 2.032590d+02, 2.121500d+02, 2.187760d+02, 2.238980d+02,
|
||||
& 2.243630d+02, 2.168650d+02, 2.011920d+02, 1.769300d+02,
|
||||
& 1.503930d+02, 1.278370d+02, 1.086630d+02, 9.236572d+01,
|
||||
& 7.851231d+01, 5.638791d+01, 4.017541d+01, 2.836781d+01,
|
||||
& 1.979160d+01, 9.292942d+00, 4.076571d+00, 1.650790d+00,
|
||||
& 6.167791d-01, 2.113490d-01, 6.600001d-02, 1.000000d-02 /)
|
||||
|
||||
! Bp [unitless] for 47 levels (48 edges)
|
||||
BP = (/ 1.000000d+00, 9.849520d-01, 9.634060d-01, 9.418650d-01,
|
||||
& 9.203870d-01, 8.989080d-01, 8.774290d-01, 8.560180d-01,
|
||||
& 8.346609d-01, 8.133039d-01, 7.919469d-01, 7.706375d-01,
|
||||
& 7.493782d-01, 7.211660d-01, 6.858999d-01, 6.506349d-01,
|
||||
& 6.158184d-01, 5.810415d-01, 5.463042d-01, 4.945902d-01,
|
||||
& 4.437402d-01, 3.928911d-01, 3.433811d-01, 2.944031d-01,
|
||||
& 2.467411d-01, 2.003501d-01, 1.562241d-01, 1.136021d-01,
|
||||
& 6.372006d-02, 2.801004d-02, 6.960025d-03, 8.175413d-09,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00 /)
|
||||
|
||||
#else
|
||||
|
||||
!--------------------------------
|
||||
! GEOS-5 72 level grid
|
||||
!--------------------------------
|
||||
|
||||
! Ap [hPa] for 72 levels (73 edges)
|
||||
AP = (/ 0.000000d+00, 4.804826d-02, 6.593752d+00, 1.313480d+01,
|
||||
& 1.961311d+01, 2.609201d+01, 3.257081d+01, 3.898201d+01,
|
||||
& 4.533901d+01, 5.169611d+01, 5.805321d+01, 6.436264d+01,
|
||||
& 7.062198d+01, 7.883422d+01, 8.909992d+01, 9.936521d+01,
|
||||
& 1.091817d+02, 1.189586d+02, 1.286959d+02, 1.429100d+02,
|
||||
& 1.562600d+02, 1.696090d+02, 1.816190d+02, 1.930970d+02,
|
||||
& 2.032590d+02, 2.121500d+02, 2.187760d+02, 2.238980d+02,
|
||||
& 2.243630d+02, 2.168650d+02, 2.011920d+02, 1.769300d+02,
|
||||
& 1.503930d+02, 1.278370d+02, 1.086630d+02, 9.236572d+01,
|
||||
& 7.851231d+01, 6.660341d+01, 5.638791d+01, 4.764391d+01,
|
||||
& 4.017541d+01, 3.381001d+01, 2.836781d+01, 2.373041d+01,
|
||||
& 1.979160d+01, 1.645710d+01, 1.364340d+01, 1.127690d+01,
|
||||
& 9.292942d+00, 7.619842d+00, 6.216801d+00, 5.046801d+00,
|
||||
& 4.076571d+00, 3.276431d+00, 2.620211d+00, 2.084970d+00,
|
||||
& 1.650790d+00, 1.300510d+00, 1.019440d+00, 7.951341d-01,
|
||||
& 6.167791d-01, 4.758061d-01, 3.650411d-01, 2.785261d-01,
|
||||
& 2.113490d-01, 1.594950d-01, 1.197030d-01, 8.934502d-02,
|
||||
& 6.600001d-02, 4.758501d-02, 3.270000d-02, 2.000000d-02,
|
||||
& 1.000000d-02 /)
|
||||
|
||||
! Bp [unitless] for 72 levels (73 edges)
|
||||
BP = (/ 1.000000d+00, 9.849520d-01, 9.634060d-01, 9.418650d-01,
|
||||
& 9.203870d-01, 8.989080d-01, 8.774290d-01, 8.560180d-01,
|
||||
& 8.346609d-01, 8.133039d-01, 7.919469d-01, 7.706375d-01,
|
||||
& 7.493782d-01, 7.211660d-01, 6.858999d-01, 6.506349d-01,
|
||||
& 6.158184d-01, 5.810415d-01, 5.463042d-01, 4.945902d-01,
|
||||
& 4.437402d-01, 3.928911d-01, 3.433811d-01, 2.944031d-01,
|
||||
& 2.467411d-01, 2.003501d-01, 1.562241d-01, 1.136021d-01,
|
||||
& 6.372006d-02, 2.801004d-02, 6.960025d-03, 8.175413d-09,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00, 0.000000d+00, 0.000000d+00, 0.000000d+00,
|
||||
& 0.000000d+00 /)
|
||||
|
||||
#endif
|
||||
|
||||
#elif defined( GEOS_4 )
|
||||
|
||||
!=================================================================
|
||||
! GEOS-4 vertical coordinates (30 or 55 levels)
|
||||
!=================================================================
|
||||
|
||||
#if defined( GRIDREDUCED )
|
||||
|
||||
!-----------------------------------
|
||||
! GEOS-4 30 level grid
|
||||
!
|
||||
! level Edge # L's
|
||||
! edge Prs hPa lumped
|
||||
!
|
||||
! 48 0.0100 (4)
|
||||
! 47 0.0660 (4)
|
||||
! 46 0.2113 (4)
|
||||
! 45 0.6168 (4)
|
||||
! 44 1.6508 (4)
|
||||
! 43 4.0766 (4)
|
||||
! 42 9.2929 (4)
|
||||
! 41 19.7916 (2)
|
||||
! 40 28.3678 (2)
|
||||
! 39 40.1754 (2)
|
||||
! 38 56.3879 (2)
|
||||
! -- keep levels below this line --
|
||||
! 37 78.5123
|
||||
! 36 92.3657
|
||||
!-----------------------------------
|
||||
|
||||
! Ap [hPa] for 30 levels (31 edges)
|
||||
AP = (/ 0.000000d0, 0.000000d0, 12.704939d0, 35.465965d0,
|
||||
& 66.098427d0, 101.671654d0, 138.744400d0, 173.403183d0,
|
||||
& 198.737839d0, 215.417526d0, 223.884689d0, 224.362869d0,
|
||||
& 216.864929d0, 201.192093d0, 176.929993d0, 150.393005d0,
|
||||
& 127.837006d0, 108.663429d0, 92.365662d0, 78.512299d0,
|
||||
& 56.387939d0, 40.175419d0, 28.367815d0, 19.791553d0,
|
||||
& 9.292943d0, 4.076567d0, 1.650792d0, 0.616779d0,
|
||||
& 0.211349d0, 0.066000d0, 0.010000d0 /)
|
||||
|
||||
! Bp [unitless] for 30 levels (31 edges)
|
||||
BP = (/ 1.000000d0, 0.985110d0, 0.943290d0, 0.867830d0,
|
||||
& 0.764920d0, 0.642710d0, 0.510460d0, 0.378440d0,
|
||||
& 0.270330d0, 0.183300d0, 0.115030d0, 0.063720d0,
|
||||
& 0.028010d0, 0.006960d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0 /)
|
||||
|
||||
#else
|
||||
|
||||
!-----------------------------------
|
||||
! GEOS-4 55 level grid
|
||||
!-----------------------------------
|
||||
|
||||
! AP [hPa] for 55 levels (56 edges)
|
||||
AP = (/ 0.000000d0, 0.000000d0, 12.704939d0, 35.465965d0,
|
||||
& 66.098427d0, 101.671654d0, 138.744400d0, 173.403183d0,
|
||||
& 198.737839d0, 215.417526d0, 223.884689d0, 224.362869d0,
|
||||
& 216.864929d0, 201.192093d0, 176.929993d0, 150.393005d0,
|
||||
& 127.837006d0, 108.663429d0, 92.365662d0, 78.512299d0,
|
||||
& 66.603378d0, 56.387939d0, 47.643932d0, 40.175419d0,
|
||||
& 33.809956d0, 28.367815d0, 23.730362d0, 19.791553d0,
|
||||
& 16.457071d0, 13.643393d0, 11.276889d0, 9.292943d0,
|
||||
& 7.619839d0, 6.216800d0, 5.046805d0, 4.076567d0,
|
||||
& 3.276433d0, 2.620212d0, 2.084972d0, 1.650792d0,
|
||||
& 1.300508d0, 1.019442d0, 0.795134d0, 0.616779d0,
|
||||
& 0.475806d0, 0.365041d0, 0.278526d0, 0.211349d0,
|
||||
& 0.159495d0, 0.119703d0, 0.089345d0, 0.066000d0,
|
||||
& 0.047585d0, 0.032700d0, 0.020000d0, 0.010000d0 /)
|
||||
|
||||
! BP [unitless] for 55 levels (56 edges)
|
||||
BP = (/ 1.000000d0, 0.985110d0, 0.943290d0, 0.867830d0,
|
||||
& 0.764920d0, 0.642710d0, 0.510460d0, 0.378440d0,
|
||||
& 0.270330d0, 0.183300d0, 0.115030d0, 0.063720d0,
|
||||
& 0.028010d0, 0.006960d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0,
|
||||
& 0.000000d0, 0.000000d0, 0.000000d0, 0.000000d0 /)
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
#elif defined( GEOS_3 )
|
||||
|
||||
!=================================================================
|
||||
! GEOS-3 vertical coordinates (30 or 48 levels)
|
||||
!=================================================================
|
||||
|
||||
#if defined( GRIDREDUCED )
|
||||
|
||||
!-----------------------------------
|
||||
! GEOS-3 30 level grid
|
||||
!-----------------------------------
|
||||
|
||||
! AP [hPa] is just PTOP for a pure-sigma grid
|
||||
AP = PTOP
|
||||
|
||||
! BP [unitless] is just SIGE for a pure-sigma grid
|
||||
BP = (/ 1.000000d0, 0.997095d0, 0.991200d0, 0.981500d0,
|
||||
& 0.967100d0, 0.946800d0, 0.919500d0, 0.884000d0,
|
||||
& 0.839000d0, 0.783000d0, 0.718200d0, 0.647600d0,
|
||||
& 0.574100d0, 0.500000d0, 0.427800d0, 0.359500d0,
|
||||
& 0.297050d0, 0.241950d0, 0.194640d0, 0.155000d0,
|
||||
& 0.122680d0, 0.096900d0, 0.076480d0, 0.047610d0,
|
||||
& 0.029600d0, 0.018380d0, 0.007040d0, 0.002530d0,
|
||||
& 0.000765d0, 0.000155d0, 0.000000d0 /)
|
||||
|
||||
#else
|
||||
|
||||
!-----------------------------------
|
||||
! GEOS-3 48 level grid
|
||||
!-----------------------------------
|
||||
|
||||
! AP [hPa] is just PTOP for a pure-sigma grid
|
||||
AP = PTOP
|
||||
|
||||
! BP [unitless] is just SIGE for a pure-sigma grid
|
||||
BP = (/ 1.000000d0, 0.997095d0, 0.991200d0, 0.981500d0,
|
||||
& 0.967100d0, 0.946800d0, 0.919500d0, 0.884000d0,
|
||||
& 0.839000d0, 0.783000d0, 0.718200d0, 0.647600d0,
|
||||
& 0.574100d0, 0.500000d0, 0.427800d0, 0.359500d0,
|
||||
& 0.297050d0, 0.241950d0, 0.194640d0, 0.155000d0,
|
||||
& 0.122680d0, 0.096900d0, 0.076480d0, 0.060350d0,
|
||||
& 0.047610d0, 0.037540d0, 0.029600d0, 0.023330d0,
|
||||
& 0.018380d0, 0.014480d0, 0.011405d0, 0.008975d0,
|
||||
& 0.007040d0, 0.005500d0, 0.004280d0, 0.003300d0,
|
||||
& 0.002530d0, 0.001900d0, 0.001440d0, 0.001060d0,
|
||||
& 0.000765d0, 0.000540d0, 0.000370d0, 0.000245d0,
|
||||
& 0.000155d0, 9.20000d-5, 4.75000d-5, 1.76800d-5,
|
||||
& 0.000000d0 /)
|
||||
|
||||
#endif
|
||||
|
||||
#elif defined( GCAP )
|
||||
|
||||
!=================================================================
|
||||
! GCAP vertical coordinates (23 levels)
|
||||
!=================================================================
|
||||
|
||||
! Define SIGMA edges from GISS 23L model
|
||||
SIGE_GCAP = (/ 1.0d0, 0.9712230d0, 0.9340528d0,
|
||||
& 0.8800959d0, 0.8021583d0, 0.6714628d0,
|
||||
& 0.5035971403d0, 0.3297362030d0, 0.1966426820d0,
|
||||
& 0.1139088720d0, 0.0503597111d0, 0.0000000000d0,
|
||||
& -0.0395683460d0, -0.0764988065d0, -0.1124700233d0,
|
||||
& -0.1419664323d0, -0.1585131884d0, -0.1678657085d0,
|
||||
& -0.1743045598d0, -0.1781055182d0, -0.1793033630d0,
|
||||
& -0.1796822548d0, -0.1798187047d0, -0.1798536479d0 /)
|
||||
|
||||
! Convert SIGMA to AP and BP coordinates
|
||||
DO L = 1, LLTROP
|
||||
AP(L) = 150d0 + ( SIGE_GCAP(L) * ( PTOP - 150d0 ) )
|
||||
BP(L) = SIGE_GCAP(L)
|
||||
ENDDO
|
||||
|
||||
DO L = LLTROP+1, LLPAR+1
|
||||
AP(L) = 150d0 + ( SIGE_GCAP(L) * ( 984d0 - 150d0 ) )
|
||||
BP(L) = 0d0
|
||||
ENDDO
|
||||
|
||||
#endif
|
||||
|
||||
! Echo info to std output
|
||||
WRITE( 6, '(a)' ) REPEAT( '=', 79 )
|
||||
WRITE( 6, '(a,/)' ) 'V E R T I C A L G R I D S E T U P'
|
||||
WRITE( 6, '(a,/)' ) 'INIT_PRESSURE: Vertical coordinates!'
|
||||
WRITE( 6, '( ''Ap '', /, 6(f11.6,1x) )' ) AP(1:LLPAR+1)
|
||||
WRITE( 6, '(a)' )
|
||||
WRITE( 6, '( ''Bp '', /, 6(f11.6,1x) )' ) BP(1:LLPAR+1)
|
||||
WRITE( 6, '(a)' ) REPEAT( '=', 79 )
|
||||
|
||||
! Return to calling program
|
||||
END SUBROUTINE INIT_PRESSURE
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
SUBROUTINE CLEANUP_PRESSURE
|
||||
!
|
||||
!******************************************************************************
|
||||
! Subroutine CLEANUP_PRESSURE deallocates all allocated arrays at the
|
||||
! end of a GEOS-CHEM model run. (dsa, bmy, 8/20/02)
|
||||
!
|
||||
! NOTES:
|
||||
!******************************************************************************
|
||||
!
|
||||
!=================================================================
|
||||
! CLEANUP_PRESSURE begins here!
|
||||
!=================================================================
|
||||
IF ( ALLOCATED( AP ) ) DEALLOCATE( AP )
|
||||
IF ( ALLOCATED( BP ) ) DEALLOCATE( BP )
|
||||
IF ( ALLOCATED( PFLT ) ) DEALLOCATE( PFLT )
|
||||
|
||||
! Return to calling program
|
||||
END SUBROUTINE CLEANUP_PRESSURE
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
FUNCTION GET_PFLT( ) RESULT( PFLT_TEMP )
|
||||
!
|
||||
!******************************************************************************
|
||||
! Function GET_PFLT returns the entire PFLT array. (dkh, 06/11/09)
|
||||
!
|
||||
! NOTES:
|
||||
!******************************************************************************
|
||||
!
|
||||
# include "CMN_SIZE"
|
||||
|
||||
REAL*8 :: PFLT_TEMP(IIPAR,JJPAR)
|
||||
|
||||
!=================================================================
|
||||
! GET_PFLT begins here!
|
||||
!=================================================================
|
||||
PFLT_TEMP(:,:) = PFLT(:,:)
|
||||
|
||||
! Return to calling program
|
||||
END FUNCTION GET_PFLT
|
||||
|
||||
!------------------------------------------------------------------------------
|
||||
|
||||
! End of module
|
||||
END MODULE PRESSURE_MOD
|
||||
Reference in New Issue
Block a user