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 UTC893df04db0 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 */
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|