Back to home page

MITgcm

 
 

    


File indexing completed on 2021-11-06 05:18:32 UTC

view on githubraw file Latest commit 016b84c4 on 2021-11-02 20:24:44 UTC
893df04db0 Mart*0001 #ifdef ALLOW_OPPS
                0002 
                0003 CBOP
                0004 C !ROUTINE: OPPS.h
                0005 
                0006 C !DESCRIPTION: \bv
016b84c482 Mart*0007 C     *==========================================================*
893df04db0 Mart*0008 C     | OPPS.h                                                   |
                0009 C     | o Basic header for Paluszkiewicz and Romea (1997)        |
                0010 C     |   Ocean Penetrative Plume Scheme (OPPS)                  |
                0011 C     |   Contains all OPPS field declarations.                  |
016b84c482 Mart*0012 C     *==========================================================*
893df04db0 Mart*0013 
                0014 C-----------------------------------------------------------------------
                0015 C Parameters that can be set in data.opps
                0016 C
016b84c482 Mart*0017 C     MAX_ABE_ITERATIONS  :: maximum for iteration on fractional size
                0018 C                            (default=1)
                0019 C                            In the present implementation, there is no
                0020 C                            iteration and max_abe_iterations should
                0021 C                            always be 1
                0022 C     OPPSdebugLevel      :: sets internal debug level (default = 0) to
                0023 C                            produce some output for debugging
                0024 C     PlumeRadius         :: default = 100 m
                0025 C     STABILITY_THRESHOLD :: threshold of vertical density difference,
                0026 C                            beyond which convection starts
                0027 C                            (default = -1.e-4 kg/m^3)
                0028 C     FRACTIONAL_AREA     :: (initial) fractional area that plume(s)
                0029 C                            occupies (default = 0.1)
                0030 C     MAX_FRACTIONAL_AREA :: maximum of above (default = 0.8), not used
                0031 C     VERTICAL_VELOCITY   :: initial (positive=downward) vertical
                0032 C                            velocity of plume (default=0.03m/s)
                0033 C     ENTRAINMENT_RATE    :: default = - 0.05
                0034 C     e2                  :: 2*ENTRAINMENT_RATE (cannot be set)
                0035 C     useGCMwVel          :: flag to replace VERTICAL_VELOCITY with
                0036 C                            actual vertical velocity of GCM, probably
                0037 C                            useless (default = .false.)
                0038 C     OPPSdumpFreq        :: default = dumpFreq (currently there is no
                0039 C                            snap-shot output)
893df04db0 Mart*0040 C-----------------------------------------------------------------------
                0041 C \ev
                0042 CEOP
                0043 
                0044       INTEGER MAX_ABE_ITERATIONS
                0045 CML     default values from original code
                0046 CML      PARAMETER(MAX_ABE_ITERATIONS=1)
                0047       INTEGER OPPSdebugLevel
016b84c482 Mart*0048       COMMON /OPPS_PARMS_I/
893df04db0 Mart*0049      &     MAX_ABE_ITERATIONS, OPPSdebugLevel
                0050 
                0051       _RL PlumeRadius
                0052       _RL STABILITY_THRESHOLD
                0053       _RL FRACTIONAL_AREA
                0054       _RL MAX_FRACTIONAL_AREA
                0055       _RL VERTICAL_VELOCITY
                0056       _RL ENTRAINMENT_RATE
                0057       _RL e2
016b84c482 Mart*0058 C      _RL OPPSdumpFreq
893df04db0 Mart*0059 CML     default values from original code
                0060 CML      PARAMETER ( PlumeRadius          =  100.D0   )
                0061 CML      PARAMETER ( STABILITY_THRESHOLD  =  -1.E-4   )
                0062 CML      PARAMETER ( FRACTIONAL_AREA      =  .1E0    )
                0063 CML      PARAMETER ( MAX_FRACTIONAL_AREA  =  .8E0     )
                0064 CML      PARAMETER ( VERTICAL_VELOCITY    =  .02E0   )
                0065 CML      PARAMETER ( ENTRAINMENT_RATE     =  -.05E0     )
                0066 CML      PARAMETER ( e2    =   2.E0*ENTRAINMENT_RATE  )
016b84c482 Mart*0067       COMMON /OPPS_PARMS_R/
893df04db0 Mart*0068      &     PlumeRadius,
                0069      &     STABILITY_THRESHOLD,
                0070      &     FRACTIONAL_AREA,
                0071      &     MAX_FRACTIONAL_AREA,
                0072      &     VERTICAL_VELOCITY,
                0073      &     ENTRAINMENT_RATE,
016b84c482 Mart*0074      &     e2
                0075 C     &     , OPPSdumpFreq
893df04db0 Mart*0076 
016b84c482 Mart*0077       LOGICAL OPPSisOn, useGCMwVel
                0078 C     LOGICAL OPPSwriteState
893df04db0 Mart*0079       COMMON /OPPS_PARMS_L/
016b84c482 Mart*0080      &     OPPSisOn, useGCMwVel
                0081 C    &     , OPPSwriteState
893df04db0 Mart*0082 
                0083 #endif /* ALLOW_OPPS */