IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../lsms/noah.20071219/physcons.F 03/09/11 11:03:54 >>>>> OPTIONS SECTION <<<<< *** Options In Effect *** == On / Off Options == CR DBG ESCAPE FULLPATH I4 INLGLUE NOLIBESSL NOLIBPOSIX OBJECT SOURCE STRICT SWAPOMP THREADED UNWIND ZEROSIZE == Options Of Integer Type == ALIAS_SIZE(65536) MAXMEM(-1) OPTIMIZE(2) SPILLSIZE(2000) STACKTEMP(0) == Options Of Character Type == 64(LARGETYPE) ALIAS(STD,NOINTPTR) ALIGN(BINDC(POWER),STRUCT(NATURAL)) ARCH(PWR6) ATTR(FULL) AUTODBL(NONE) DESCRIPTOR(V1) DIRECTIVE(IBM*,IBMT) ENUM() FLAG(I,I) FLOAT(RNDSNGL,MAF,FOLD,RNGCHK,SINGLE) FREE(F90) HALT(S) IEEE(NEAR) INTSIZE(4) LANGLVL(EXTENDED) REALSIZE(4) NOSAVE() TUNE(PWR6) UNROLL(AUTO) XREF(FULL) XLF2003(NOPOLYMORPHIC,NOBOZLITARGS,NOSTOPEXCEPT,NOVOLATILE,NOAUTOREALLOC,OLDNANINF) XLF77(LEADZERO,BLANKPAD) XLF90(NOSIGNEDZERO,NOAUTODEALLOC,OLDPAD) >>>>> SOURCE SECTION <<<<< 1 |#line 1 "../lsms/noah.20071219/physcons.F" 1 |module physcons 2 | use machine,only:kind_phys 3 |! Physical constants as set in NMC handbook from Smithsonian tables. 4 |! Physical constants are given to 5 places. 5 |! 1990/04/30: g and rd are made consistent with NWS usage. 6 |! 2001/10/22: g made consistent with SI usage. 7 |! Math constants 8 | real(kind=kind_phys),parameter:: con_pi =3.141593e+0 ! pi 9 | real(kind=kind_phys),parameter:: con_sqrt2 =1.414214e+0 ! square root of 2 10 | real(kind=kind_phys),parameter:: con_sqrt3 =1.732051e+0 ! square root of 3 11 |! Primary constants 12 | real(kind=kind_phys),parameter:: con_rerth =6.3712e+6 ! radius of earth (m) 13 | real(kind=kind_phys),parameter:: con_g =9.80665e+0! gravity (m/s2) 14 | real(kind=kind_phys),parameter:: con_omega =7.2921e-5 ! ang vel of earth (1/s) 15 | real(kind=kind_phys),parameter:: con_rd =2.8705e+2 ! gas constant air (J/kg/K) 16 | real(kind=kind_phys),parameter:: con_rv =4.6150e+2 ! gas constant H2O (J/kg/K) 17 | real(kind=kind_phys),parameter:: con_cp =1.0046e+3 ! spec heat air @p (J/kg/K) 18 | real(kind=kind_phys),parameter:: con_cv =7.1760e+2 ! spec heat air @v (J/kg/K) 19 | real(kind=kind_phys),parameter:: con_cvap =1.8460e+3 ! spec heat H2O gas (J/kg/K) 20 | real(kind=kind_phys),parameter:: con_cliq =4.1855e+3 ! spec heat H2O liq (J/kg/K) 21 | real(kind=kind_phys),parameter:: con_csol =2.1060e+3 ! spec heat H2O ice (J/kg/K) 22 | real(kind=kind_phys),parameter:: con_hvap =2.5000e+6 ! lat heat H2O cond (J/kg) 23 | real(kind=kind_phys),parameter:: con_hfus =3.3358e+5 ! lat heat H2O fusion (J/kg) 24 | real(kind=kind_phys),parameter:: con_psat =6.1078e+2 ! pres at H2O 3pt (Pa) 25 | real(kind=kind_phys),parameter:: con_sbc =5.6730e-8 ! stefan-boltzmann (W/m2/K4) 26 | real(kind=kind_phys),parameter:: con_solr =1.3533e+3 ! solar constant (W/m2) 27 | real(kind=kind_phys),parameter:: con_t0c =2.7315e+2 ! temp at 0C (K) 28 | real(kind=kind_phys),parameter:: con_ttp =2.7316e+2 ! temp at H2O 3pt (K) 29 |! Secondary constants 30 | real(kind=kind_phys),parameter:: con_rocp =con_rd/con_cp 31 | real(kind=kind_phys),parameter:: con_cpor =con_cp/con_rd 32 | real(kind=kind_phys),parameter:: con_rog =con_rd/con_g 33 | real(kind=kind_phys),parameter:: con_fvirt =con_rv/con_rd-1. 34 | real(kind=kind_phys),parameter:: con_eps =con_rd/con_rv 35 | real(kind=kind_phys),parameter:: con_epsm1 =con_rd/con_rv-1. 36 | real(kind=kind_phys),parameter:: con_dldt =con_cvap-con_cliq 37 | real(kind=kind_phys),parameter:: con_xpona =-con_dldt/con_rv 38 | real(kind=kind_phys),parameter:: con_xponb =-con_dldt/con_rv+con_hvap/(con_rv*con_ttp) 39 |end module >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES con_cliq Public, Parameter, Real(8) 0-20.36$ 0-36.58 con_cp Public, Parameter, Real(8) 0-17.36$ 0-30.56 0-31.49 con_cpor Public, Parameter, Real(8) 0-31.36$ con_csol Public, Parameter, Real(8) 0-21.36$ con_cv Public, Parameter, Real(8) 0-18.36$ con_cvap Public, Parameter, Real(8) 0-19.36$ 0-36.49 con_dldt Public, Parameter, Real(8) 0-36.36$ 0-37.50 0-38.50 con_eps Public, Parameter, Real(8) 0-34.36$ con_epsm1 Public, Parameter, Real(8) 0-35.36$ con_fvirt Public, Parameter, Real(8) 0-33.36$ con_g Public, Parameter, Real(8) 0-13.36$ 0-32.56 con_hfus Public, Parameter, Real(8) 0-23.36$ con_hvap Public, Parameter, Real(8) 0-22.36$ 0-38.66 con_omega Public, Parameter, Real(8) 0-14.36$ con_pi Public, Parameter, Real(8) 0-8.36$ con_psat Public, Parameter, Real(8) 0-24.36$ con_rd Public, Parameter, Real(8) 0-15.36$ 0-30.49 0-31.56 0-32.49 0-33.56 0-34.49 0-35.49 con_rerth Public, Parameter, Real(8) 0-12.36$ con_rocp Public, Parameter, Real(8) 0-30.36$ con_rog Public, Parameter, Real(8) 0-32.36$ con_rv Public, Parameter, Real(8) 0-16.36$ 0-33.49 0-34.56 0-35.56 0-37.59 0-38.59 0-38.76 con_sbc Public, Parameter, Real(8) 0-25.36$ con_solr Public, Parameter, Real(8) 0-26.36$ con_sqrt2 Public, Parameter, Real(8) 0-9.36$ con_sqrt3 Public, Parameter, Real(8) 0-10.36$ con_t0c Public, Parameter, Real(8) 0-27.36$ con_ttp Public, Parameter, Real(8) 0-28.36$ 0-38.83 con_xpona Public, Parameter, Real(8) 0-37.36$ con_xponb Public, Parameter, Real(8) 0-38.36$ kind_phys Use associated, Public, Parameter, Integer(4) 0-2.20$ 0-8.13 0-9.13 0-10.13 0-12.13 0-13.13 0-14.13 0-15.13 0-16.13 0-17.13 0-18.13 0-19.13 0-20.13 0-21.13 0-22.13 0-23.13 0-24.13 0-25.13 0-26.13 0-27.13 0-28.13 0-30.13 0-31.13 0-32.13 0-33.13 0-34.13 0-35.13 0-36.13 0-37.13 0-38.13 machine Use associated, Nonintrinsic Module 0-2.7$ 0-2.7 physcons Nonintrinsic Module 0-1.8$ ** physcons === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../lsms/noah.20071219/physcons.F 03/09/11 11:03:54 >>>>> COMPILATION EPILOGUE SECTION <<<<< FORTRAN Summary of Diagnosed Conditions TOTAL UNRECOVERABLE SEVERE ERROR WARNING INFORMATIONAL (U) (S) (E) (W) (I) 0 0 0 0 0 0 Source records read....................................... 40 1501-510 Compilation successful for file physcons.F. 1501-543 Object file created.