File indexing completed on 2019-01-25 06:10:04 UTC
view on githubraw file Latest commit 88391fb6 on 2019-01-24 19:38:27 UTC
b2ea1d2979 Jean*0001 #ifdef ALLOW_ATM_PHYS
0002
0d5d00bd7f Jean*0003
0004
0005
0006
0007
0008
b2ea1d2979 Jean*0009 LOGICAL atmPhys_addTendT
0010 LOGICAL atmPhys_addTendS
0011 LOGICAL atmPhys_addTendU
0012 LOGICAL atmPhys_addTendV
0013 LOGICAL atmPhys_stepSST
0014
0d5d00bd7f Jean*0015
0016
0017
0018 _RL atmPhys_tauDampUV
0019 _RL atmPhys_dampUVfac(Nr)
b2ea1d2979 Jean*0020
0d5d00bd7f Jean*0021
c9694dc201 Jean*0022
0023
0024
0025
88391fb671 jm-c 0026
0027
c9694dc201 Jean*0028 CHARACTER*(MAX_LEN_FNAM) atmPhys_sstFile
0029 CHARACTER*(MAX_LEN_FNAM) atmPhys_qFlxFile
0030 CHARACTER*(MAX_LEN_FNAM) atmPhys_mxldFile
0031 CHARACTER*(MAX_LEN_FNAM) atmPhys_albedoFile
88391fb671 jm-c 0032 CHARACTER*(MAX_LEN_FNAM) atmPhys_ozoneFile
b2ea1d2979 Jean*0033
0d5d00bd7f Jean*0034 COMMON /ATM_PHYS_PARAMS_L/
b2ea1d2979 Jean*0035 & atmPhys_addTendT, atmPhys_addTendS,
0036 & atmPhys_addTendU, atmPhys_addTendV,
0037 & atmPhys_stepSST
0d5d00bd7f Jean*0038 COMMON /ATM_PHYS_PARAMS_R/
0039 & atmPhys_tauDampUV, atmPhys_dampUVfac
0040 COMMON /ATM_PHYS_PARAMS_C/
88391fb671 jm-c 0041 & atmPhys_sstFile, atmPhys_qFlxFile, atmPhys_mxldFile,
0042 & atmPhys_albedoFile, atmPhys_ozoneFile
b2ea1d2979 Jean*0043
0044
0045 logical module_is_initialized
0046 logical turb
0047 logical ldry_convection
0048 logical do_virtual
0049 logical lwet_convection
0050 logical two_stream
0051 logical mixed_layer_bc
0052 COMMON /ATMOS_DRIVER_L/
0053 & module_is_initialized,
0054 & turb, ldry_convection, do_virtual,
0055 & lwet_convection, two_stream, mixed_layer_bc
0056
0057 _RL roughness_heat
0058 _RL roughness_moist
0059 _RL roughness_mom
0060 COMMON /ATMOS_DRIVER_RL/
0061 & roughness_heat, roughness_moist, roughness_mom
0062
0063 #endif /* ALLOW_ATM_PHYS */
0064
0065
0066
0067