Page 1 Source Listing SNFRAC
2025-03-12 18:24 SNFRAC.f
1 SUBROUTINE SNFRAC (SNEQV,IVEG,SNCOVR)
2
3 ! IMPLICIT NONE
4
5 C ----------------------------------------------------------------------
6 C SUBROUTINE SNFRAC
7 C ----------------------------------------------------------------------
8 C CALCULATE SNOW FRACTION (0 -> 1)
9 C SNEQV SNOW WATER EQUIVALENT (M)
10 C IVEG VEGETATION TYPE
11 C SNCOVR FRACTIONAL SNOW COVER
12 C SNUP THRESHOLD SNEQV DEPTH ABOVE WHICH SNCOVR=1
13 C SALP TUNING PARAMETER
14 C ----------------------------------------------------------------------
15 REAL SNEQV,SALP,SNUP(13),SNCOVR,RSNOW
16
17 DATA SALP /2.6/
18 DATA SNUP /0.080, 0.080, 0.080, 0.080, 0.080, 0.080,
19 & 0.040, 0.040, 0.040, 0.040, 0.025, 0.040,
20 & 0.025/
21
22 C ----------------------------------------------------------------------
23 C SNUP IS VEG-CLASS DEPENDENT SNOWDEPTH THRESHHOLD ABOVE WHICH SNOCVR=1.
24 C ----------------------------------------------------------------------
25
26 C 2012-11 wesley ebisuzaki iveg == 0 over water
27 if (iveg == 0) then
28 SNCOVR = 0.0
29 return
30 endif
31
32 IF (SNEQV .LT. SNUP(IVEG)) THEN
33 RSNOW = SNEQV/SNUP(IVEG)
34 SNCOVR = 1. - (EXP(-SALP*RSNOW) - RSNOW*EXP(-SALP))
35 ELSE
36 SNCOVR = 1.0
37 ENDIF
38 SNCOVR = MAX(0.,MIN(SNCOVR,1.))
39
40 RETURN
41 END
Page 2 Source Listing SNFRAC
2025-03-12 18:24 Entry Points SNFRAC.f
ENTRY POINTS
Name
snfrac_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
EXP Func 34 scalar 34
IVEG Dummy 1 I(4) 4 scalar ARG,INOUT 27,32,33
MAX Func 38 scalar 38
MIN Func 38 scalar 38
RSNOW Local 15 R(4) 4 scalar 33,34
SALP Local 15 R(4) 4 scalar 17,34
SNCOVR Dummy 1 R(4) 4 scalar ARG,INOUT 28,34,36,38
SNEQV Dummy 1 R(4) 4 scalar ARG,INOUT 32,33
SNFRAC Subr 1
SNUP Local 15 R(4) 4 1 13 18,32,33
Page 3 Source Listing SNFRAC
2025-03-12 18:24 Subprograms/Common Blocks SNFRAC.f
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
SNFRAC Subr 1
COMPILER OPTIONS BEING USED
-align noall -align nonone
-align nocommons -align nodcommons
-align noqcommons -align nozcommons
-align records -align nosequence
-align norec1byte -align norec2byte
-align norec4byte -align norec8byte
-align norec16byte -align norec32byte
-align norec64byte -align noarray8byte
-align noarray16byte -align noarray32byte
-align noarray64byte -align noarray128byte
-align noarray256byte -altparam
-assume accuracy_sensitive -assume nobscc
-assume nobuffered_io -assume nobuffered_stdout
-assume byterecl -assume nocontiguous_assumed_shape
-assume nocontiguous_pointer -assume nocc_omp
-assume nocstring -assume nodummy_aliases
-assume nofpe_summary -assume noieee_fpe_flags
-assume nominus0 -assume noold_boz
-assume old_complex_align -assume old_unit_star
-assume old_inquire_recl -assume old_ldout_format
-assume old_ldout_zero -assume noold_logical_assign
-assume noold_logical_ldio -assume old_maxminloc
-assume old_xor -assume noprotect_allocates
-assume protect_constants -assume noprotect_parens
-assume split_common -assume source_include
-assume nostd_intent_in -assume std_minus0_rounding
-assume nostd_mod_proc_name -assume std_value
-assume realloc_lhs -assume underscore
-assume no2underscores -assume norecursion
no -auto -auto_scalar
no -bintext -ccdefault default
-check noarg_temp_created -check noassume
-check nobounds -check nocontiguous
-check noformat -check nooutput_conversion
-check nooverflow -check nopointers
-check noshape -check nostack
-check nouninitialized -check noudio_iostat
-coarray-num-procs 0 no -coarray-config-file
-convert big_endian -cross_reference
-D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3
-D __unix__ -D __unix
-D __linux__ -D __linux
-D __gnu_linux__ -D unix
-D linux -D __ELF__
-D __x86_64 -D __x86_64__
-D __amd64 -D __amd64__
-D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD
Page 4 Source Listing SNFRAC
2025-03-12 18:24 SNFRAC.f
-D __MMX__ -D __SSE__
-D __SSE_MATH__ -D __SSE2__
-D __SSE2_MATH__ -D __SSE3__
-D __SSSE3__ -D __SSE4_1__
-D __SSE4_2__ -D __POPCNT__
-D __PCLMUL__ -D __AES__
-D __AVX__ -D __F16C__
-D __AVX_I__ -D __RDRND__
-D __FMA__ -D __FP_FAST_FMA
-D __FP_FAST_FMAF -D __BMI__
-D __LZCNT__ -D __AVX2__
-D __haswell -D __haswell__
-D __tune_haswell__ -D __core_avx2
-D __core_avx2__ -D __tune_core_avx2__
-D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET
-double_size 64 no -d_lines
no -Qdyncom -error_limit 30
no -f66 no -f77rtl
no -fast -fpscomp nofilesfromcmd
-fpscomp nogeneral -fpscomp noioformat
-fpscomp noldio_spacing -fpscomp nologicals
-fixed no -fpconstant
-fpe3 -fprm nearest
no -ftz -fp_model noprecise
-fp_model fast -fp_model nostrict
-fp_model nosource -fp_model nodouble
-fp_model noextended -fp_model novery_fast
-fp_model noexcept -fp_model nono_except
-heap_arrays 0 no -threadprivate_compat
-g2 -iface nomixed_str_len_arg
-iface nono_mixed_str_len_arg -init noarrays
-init nohuge -init noinfinity
-init nominus_huge -init nominus_infinity
-init nominus_tiny -init nonan
-init nosnan -init notiny
-init nozero no -intconstant
-integer_size 32 no -mixed_str_len_arg
no -module -names lowercase
no -noinclude no -o
-offload-build=host -openmp-simd
-O2 no -pad_source
-real_size 32 no -recursive
-reentrancy threaded -vec=simd
-show nofullpath -show noinclude
-show map -show options
no -syntax_only no -threadcom
no -U no -vms
-w noall -w nonone
-w alignments -w nodeclarations
-w noexternals -w general
-w noignore_bounds -w noignore_loc
-w nointerfaces -w noshape
-w notruncated_source -w uncalled
-w uninitialized -w nounused
-w usage no -wrap-margins
-includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/,
Page 5 Source Listing SNFRAC
2025-03-12 18:24 SNFRAC.f
.f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90,
/usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90
-list filename : SNFRAC.lst
no -o
COMPILER: Intel(R) Fortran 19.1-1655