c Defines the COMMON block /GIANT4/, which was previously defined within
c the atmosphere model source code. The array PHNF is transferred to the
c new COMMON block /GIANT5/.
c SJP 2009/03/12

      real upn,vpn,tdn,tpn,rpn,psl,z4,ron,son,phisf
      common/giant4/upn(ln2,nl),vpn(ln2,nl),tdn(ln2,nl),tpn(ln2,nl)
     & ,rpn(ln2,nl),psl(ln2),z4(ln2),ron(ln2,nl),son(ln2,nl)
     & ,phisf(ln2)