Page 1 Source Listing CALVOR 2025-03-12 18:23 CALVOR.f 1 SUBROUTINE CALVOR(UWND,VWND,ABSV) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: CALVOR COMPUTES ABSOLUTE VORTICITY 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES THE ABSOLUTE VORTICITY USING 9 C SECOND ORDER FINITE DIFFERENCES ON THE STAGGERED 10 C E-GRID. 11 C . 12 C 13 C PROGRAM HISTORY LOG: 14 C 92-12-22 RUSS TREADON 15 C 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D 16 C 00-01-04 JIM TUCCILLO - MPI VERSION 17 C 18 C USAGE: CALL CALVOR(UWND,VWND,ABSV) 19 C INPUT ARGUMENT LIST: 20 C UWND - U WIND (M/S) 21 C VWND - V WIND (M/S) 22 C 23 C OUTPUT ARGUMENT LIST: 24 C ABSV - ABSOLUTE VORTICITY (1/S) 25 C 26 C OUTPUT FILES: 27 C NONE 28 C 29 C SUBPROGRAMS CALLED: 30 C UTILITIES: 31 C NONE 32 C LIBRARY: 33 C COMMON - CTLBLK 34 C DYNAMD 35 C MAPOT 36 C MASKS 37 C OPTIONS 38 C INDX 39 C 40 C ATTRIBUTES: 41 C LANGUAGE: FORTRAN 42 C MACHINE : CRAY C-90 43 C$$$ 44 C 45 C 46 C INCLUDE ETA GRID DIMENSIONS. SET/DERIVE OTHER PARAMETERS. 47 C 48 INCLUDE "parmeta" 66 INCLUDE "params" 108 PARAMETER (OMEGA=7.292E-5,TWOMG=2.*OMEGA) 109 C 110 C DECLARE VARIABLES. 111 C 112 LOGICAL RUN,FIRST,RESTRT,SIGMA,OLDRD,STRD 113 REAL ABSV(IM,JM), UWND(IM,JM), VWND(IM,JM) 114 C 115 C DECLARE COMMONS. Page 2 Source Listing CALVOR 2025-03-12 18:23 CALVOR.f 116 INCLUDE "CTLBLK.comm" 131 INCLUDE "DYNAMD.comm" 143 INCLUDE "MAPOT.comm" 156 INCLUDE "MASKS.comm" 164 INCLUDE "OPTIONS.comm" 168 INCLUDE "INDX.comm" 169 C 170 C*************************************************************************** 171 C START CALVOR HERE. 172 C 173 C LOOP TO COMPUTE ABSOLUTE VORTICITY FROM WINDS. 174 C 180 !$omp parallel do 181 DO J=JSTA,JEND 182 DO I=1,IM 183 ABSV(I,J) = D00 184 ENDDO 185 ENDDO 186 C 187 CALL EXCH(UWND) 188 CALL EXCH(F) 189 !$omp parallel do 190 !$omp& private(favg,tphi,uavg) 191 DO J=JSTA_M2,JEND_M2 192 TPHI=(J-JMT)*DPHD*DTR 193 DO I=2,IM-1 194 UAVG=0.25*(UWND(I+IHE(J),J)+UWND(I+IHW(J),J) 195 1 +UWND(I,J+1)+UWND(I,J-1)) 196 FAVG=0.25*(F(I+IHE(J),J)+F(I+IHW(J),J) 197 1 +F(I,J+1)+F(I,J-1)) 198 ABSV(I,J)=((VWND(I+IHE(J),J)-VWND(I+IHW(J),J))/(2.*DX(I,J)) 199 1 -(UWND(I,J+1)-UWND(I,J-1))/(2.*DY) 200 2 +UAVG*TAN(TPHI)/ERAD+2.*FAVG/DT)*HBM2(I,J) 201 ENDDO 202 ENDDO 203 C 204 C END OF ROUTINE. 205 C 206 RETURN 207 END Page 3 Source Listing CALVOR 2025-03-12 18:23 Entry Points CALVOR.f ENTRY POINTS Name calvor_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A2 Param 107 R(4) 4 scalar A3 Param 107 R(4) 4 scalar A4 Param 107 R(4) 4 scalar ABSV Dummy 1 R(4) 4 2 91719 ARG,INOUT 183,198 AD05 Param 99 R(4) 4 scalar BETA Param 103 R(4) 4 scalar 103 BTG Param 103 R(4) 4 scalar CALVOR Subr 1 CAPA Param 94 R(4) 4 scalar 101 CFT0 Param 99 R(4) 4 scalar CM1 Param 89 R(4) 4 scalar CM2 Param 89 R(4) 4 scalar CM3 Param 89 R(4) 4 scalar CP Param 100 R(4) 4 scalar 102,106 CPDR Param 102 R(4) 4 scalar CTLBLK Common 118 96 SAVE D00 Param 91 R(4) 4 scalar 183 D001 Param 91 R(4) 4 scalar D0065 Param 95 R(4) 4 scalar D01 Param 91 R(4) 4 scalar D05 Param 95 R(4) 4 scalar 99 D1 Param 91 R(4) 4 scalar D115 Param 95 R(4) 4 scalar D125 Param 93 R(4) 4 scalar D25 Param 93 R(4) 4 scalar D50 Param 91 R(4) 4 scalar D608 Param 95 R(4) 4 scalar DP10M Param 101 R(4) 4 scalar DTR Param 100 R(4) 4 scalar 100,192 DYNAM Common 133 3675964 SAVE ELDR Param 102 R(4) 4 scalar ELWV Param 102 R(4) 4 scalar 102 EPS Param 105 R(4) 4 scalar 105 EPSQ2 Param 106 R(4) 4 scalar ERAD Param 100 R(4) 4 scalar 200 EXCH Subr 187 187,188 FAVG Local 196 R(4) 4 scalar 196,200 FMD Param 105 R(4) 4 scalar 105 FMW Param 105 R(4) 4 scalar 105 G Param 98 R(4) 4 scalar 98 GI Param 98 R(4) 4 scalar 102 H1 Param 92 R(4) 4 scalar 99 H100 Param 93 R(4) 4 scalar H1000 Param 93 R(4) 4 scalar Page 4 Source Listing CALVOR 2025-03-12 18:23 Symbol Table CALVOR.f Name Object Declared Type Bytes Dimen Elements Attributes References H10000 Param 94 R(4) 4 scalar H10E5 Param 94 R(4) 4 scalar H1E2 Param 96 R(4) 4 scalar H1E4 Param 96 R(4) 4 scalar H1M12 Param 92 R(4) 4 scalar H1M2 Param 96 R(4) 4 scalar H1M5 Param 93 R(4) 4 scalar H2 Param 92 R(4) 4 scalar H4 Param 92 R(4) 4 scalar H999 Param 91 R(4) 4 scalar H99999 Param 92 R(4) 4 scalar I Local 182 I(4) 4 scalar 182,183,193,194,195,196,197,198,19 9,200 IDIM1 Param 62 I(4) 4 scalar IDIM2 Param 62 I(4) 4 scalar IGSTL Param 57 I(4) 4 scalar 62 IGSTR Param 57 I(4) 4 scalar 62 IM Param 51 I(4) 4 scalar 59,62,70,72,73,75,113,139,140,159, 161,182,193 IM1 Param 72 I(4) 4 scalar IMT Param 70 I(4) 4 scalar INDX Common 176 6192 SAVE INPES Param 54 I(4) 4 scalar 59,62 ITAIL Param 59 I(4) 4 scalar J Local 181 I(4) 4 scalar 181,183,191,192,194,195,196,197,19 8,199,200 JAM Param 72 I(4) 4 scalar 137 JDIM1 Param 63 I(4) 4 scalar JDIM2 Param 63 I(4) 4 scalar JGSTL Param 58 I(4) 4 scalar 63 JGSTR Param 58 I(4) 4 scalar 63 JM Param 51 I(4) 4 scalar 60,63,70,72,75,113,139,140,159,161 ,177 JM2 Param 72 I(4) 4 scalar JMT Param 70 I(4) 4 scalar 192 JNPES Param 54 I(4) 4 scalar 60,63 JTAIL Param 60 I(4) 4 scalar KSAV Param 80 I(4) 4 scalar KSFI Param 79 I(4) 4 scalar KSLI Param 80 I(4) 4 scalar KSLP Param 80 I(4) 4 scalar KSLPD Param 79 I(4) 4 scalar KSMUD Param 79 I(4) 4 scalar KSRH Param 80 I(4) 4 scalar KSSLP Param 79 I(4) 4 scalar KST Param 79 I(4) 4 scalar KSUV Param 80 I(4) 4 scalar LB Param 75 I(4) 4 scalar LHEAT Param 106 I(4) 4 scalar 106 LHTOCP Param 106 I(4) 4 scalar LM Param 51 I(4) 4 scalar 74,85,135,151,161 LM1 Param 74 I(4) 4 scalar LP1 Param 74 I(4) 4 scalar 135,151 LSM Param 51 I(4) 4 scalar 150 MAPOT Common 145 1448 SAVE Page 5 Source Listing CALVOR 2025-03-12 18:23 Symbol Table CALVOR.f Name Object Declared Type Bytes Dimen Elements Attributes References MASKS Common 158 34853220 SAVE NINC Param 73 I(4) 4 scalar NSTAT Param 85 I(4) 4 scalar NSUMD Param 81 I(4) 4 scalar NWORD Param 85 I(4) 4 scalar 85 NWORD3 Param 85 I(4) 4 scalar NWORD6 Param 85 I(4) 4 scalar OLDRD Local 112 L(4) 4 scalar OMEGA Param 108 R(4) 4 scalar 108 ONEPS Param 105 R(4) 4 scalar OPTIONS Common 166 24 SAVE OVERRC Param 99 R(4) 4 scalar 99 P1000 Param 101 R(4) 4 scalar PARALLEL Common 125 8240 PQ0 Param 107 R(4) 4 scalar RCAPA Param 101 R(4) 4 scalar RD Param 98 R(4) 4 scalar 98,102,106 RDOCP Param 106 R(4) 4 scalar RG Param 102 R(4) 4 scalar ROG Param 98 R(4) 4 scalar RTD Param 100 R(4) 4 scalar SMTHA Param 81 R(4) 4 scalar SMTHB Param 81 R(4) 4 scalar STRD Local 112 L(4) 4 scalar TAN Func 200 scalar 200 TFRZ Param 105 R(4) 4 scalar TPHI Local 192 R(4) 4 scalar 192,200 TWOMG Param 108 R(4) 4 scalar UAVG Local 194 R(4) 4 scalar 194,200 UWND Dummy 1 R(4) 4 2 91719 ARG,INOUT 187,194,195,199 VWND Dummy 1 R(4) 4 2 91719 ARG,INOUT 198 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References AETA R(4) 4 808 1 45 COM AETAD R(4) 4 396 1 45 COM ALSL R(4) 4 472 1 39 COM CMLD R(4) 4 292 scalar COM CPGFU R(4) 4 740956 2 91719 COM CPGFV R(4) 4 4 scalar COM CPHI0 R(4) 4 1420 scalar COM CURV R(4) 4 1107832 2 91719 COM DDMPU R(4) 4 2942212 2 91719 COM DDMPV R(4) 4 3309088 2 91719 COM DETA R(4) 4 628 1 45 COM DETAD R(4) 4 36 1 45 COM DFL R(4) 4 940 1 46 COM DISLP R(4) 4 308 scalar COM DLMD R(4) 4 284 scalar COM DP30 R(4) 4 296 scalar COM DPHD R(4) 4 288 scalar COM 192 DT R(4) 4 48 scalar COM 200 Page 6 Source Listing CALVOR 2025-03-12 18:23 Symbol Table CALVOR.f Name Type Bytes Offset Dimen Elements Attributes References DX R(4) 4 7204 2 91719 COM 198 DY R(4) 4 0 scalar COM 199 EF4T R(4) 4 32 scalar COM EM R(4) 4 1124 1 760 COM EMT R(4) 4 4164 1 760 COM EN R(4) 4 8 scalar COM ENT R(4) 4 12 scalar COM ERLAM0 R(4) 4 1416 scalar COM ETA R(4) 4 988 1 46 COM ETAD R(4) 4 756 1 46 COM F R(4) 4 2575336 2 91719 COM 188,196,197 F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FAD R(4) 4 2208460 2 91719 COM FCP R(4) 4 1474708 2 91719 COM FDIV R(4) 4 1841584 2 91719 COM FIRST L(4) 4 24 scalar COM HBM2 R(4) 4 0 2 91719 COM 200 HTM R(4) 4 1834380 3 4127355 COM IBESSL I(4) 4 4 scalar COM ICNT I(4) 4 40 1 1024 COM IDAT I(4) 4 8 1 3 COM IDN I(4) 4 36 scalar COM IDSP I(4) 4 4136 1 1024 COM IDTAD I(4) 4 68 scalar COM IFLAG I(4) 4 16 scalar COM IHE I(4) 4 0 1 387 COM 194,196,198 IHRST I(4) 4 20 scalar COM IHW I(4) 4 1548 1 387 COM 194,196,198 IOFFS I(4) 4 12 scalar COM IOUT I(4) 4 44 scalar COM ISHDE I(4) 4 12 1 61 COM IUNIT I(4) 4 1440 scalar COM IUP I(4) 4 32 scalar COM IVE I(4) 4 3096 1 387 COM IVW I(4) 4 4644 1 387 COM IXM I(4) 4 4 scalar COM IYM I(4) 4 8 scalar COM JEND I(4) 4 12 scalar COM 181 JEND_2U I(4) 4 8236 scalar COM JEND_M I(4) 4 20 scalar COM JEND_M2 I(4) 4 28 scalar COM 191 JSTA I(4) 4 8 scalar COM 181 JSTA_2L I(4) 4 8232 scalar COM JSTA_M I(4) 4 16 scalar COM JSTA_M2 I(4) 4 24 scalar COM 191 KSB I(4) 4 8 scalar COM KUNIT I(4) 4 1428 scalar COM LIST I(4) 4 40 scalar COM LSL I(4) 4 0 scalar COM LUNIT I(4) 4 1432 scalar COM ME I(4) 4 4 scalar COM MUNIT I(4) 4 1436 scalar COM NBC I(4) 4 36 scalar COM Page 7 Source Listing CALVOR 2025-03-12 18:23 Symbol Table CALVOR.f Name Type Bytes Offset Dimen Elements Attributes References NBOCO I(4) 4 72 scalar COM NCP I(4) 4 80 scalar COM NDDAMP I(4) 4 60 scalar COM NFCST I(4) 4 32 scalar COM NPHS I(4) 4 84 scalar COM NPREC I(4) 4 64 scalar COM NRADL I(4) 4 92 scalar COM NRADS I(4) 4 88 scalar COM NSHDE I(4) 4 76 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM NUM_PROCS I(4) 4 0 scalar COM NUNIT I(4) 4 1444 scalar COM PT R(4) 4 260 scalar COM PTDYN R(4) 4 20 scalar COM R R(4) 4 256 scalar COM RDETA R(4) 4 216 1 45 COM RDYN R(4) 4 16 scalar COM RESTRT L(4) 4 28 scalar COM RUN L(4) 4 4 scalar COM SATDEL R(4) 4 20 scalar COM SBD R(4) 4 272 scalar COM SICE R(4) 4 1467504 2 91719 COM SIGMA L(4) 4 0 scalar COM SM R(4) 4 1100628 2 91719 COM SPHI0 R(4) 4 1424 scalar COM SPL R(4) 4 316 1 39 COM SPVAL R(4) 4 0 scalar COM TLM0D R(4) 4 276 scalar COM TPH0D R(4) 4 280 scalar COM TSHDE R(4) 4 1172 1 61 COM TSPH R(4) 4 264 scalar COM VBM2 R(4) 4 366876 2 91719 COM VBM3 R(4) 4 733752 2 91719 COM VTM R(4) 4 18343800 3 4127355 COM WBD R(4) 4 268 scalar COM WPDAR R(4) 4 374080 2 91719 COM X1P R(4) 4 300 scalar COM Y1P R(4) 4 304 scalar COM Z0SLP R(4) 4 312 scalar COM Page 8 Source Listing CALVOR 2025-03-12 18:23 Subprograms/Common Blocks CALVOR.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CALVOR Subr 1 CTLBLK Common 118 96 SAVE DYNAM Common 133 3675964 SAVE INDX Common 176 6192 SAVE MAPOT Common 145 1448 SAVE MASKS Common 158 34853220 SAVE OPTIONS Common 166 24 SAVE PARALLEL Common 125 8240 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 Page 9 Source Listing CALVOR 2025-03-12 18:23 CALVOR.f -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 -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 Page 10 Source Listing CALVOR 2025-03-12 18:23 CALVOR.f -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/, .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 : CALVOR.lst no -o COMPILER: Intel(R) Fortran 19.1-1655