*DECK INICON
      SUBROUTINE INICON
C
C**** *INICON*  PRESET CONSTANTS IN *COMCON* (Sample of code only)
C
*CALL COMCON
C
      API=2.*ASIN(1.)
      A=6371000.
      OMEGA=.7292E-4
      G=9.80665
      CPD=1005.46
      CPV=1869.46
      RD=287.05
      RV=461.51
C
      RCPD=1./CPD
      VTMPC1=RV/RD-1.
      VTMPC2=CPV/CPD-1.
C
      RHOH2O=1000.
      ALV=2.5008E6
      ALS=2.8345E6
      ALF=ALS-ALV
C
      CLW=4186.84
      TMELT=273.16
C
      SOLC=1376.
      STBO=5.67E-8
C
      DAYL=86400.
      YEARL=365.2425
C
      C1ES=610.78
      C2ES=C1ES*RD/RV
      C3LES=17.269
      C3IES=21.875
      C4LES=35.86
      C4IES=7.66
      C5LES=C3LES*(TMELT-C4LES)
      C5IES=C3IES*(TMELT-C4IES)
C
      RETURN
      END
C     ------------------------------------------------------------
*DECK INIPHY
      SUBROUTINE INIPHY
C
C**** *INIPHY* - INITIALISES PHYSICAL CONSTANTS OF UNCERTAIN VALUE.
C                (Sample of code only)
C
C          THIS ROUTINE SETS THE VALUES FOR THE PHYSICAL CONSTANTS USED
C     IN THE PARAMETERIZATION ROUTINES (EXCEPT FOR THE RADIATION
C     BLACK-BOX) WHENEVER THESE VALUES ARE NOT WELL ENOUGH KNOWN TO
C     FORBID ANY TUNING OR WHENEVER THEY ARE SUBJECT TO AN ARBITRARY
C     CHOICE OF THE MODELLER. THESE CONSTANTS WILL BE IN *COMPH2*.
C
*CALL PARAM
*CALL COMCTL
*CALL COMPH2
C
C*                 CONSTANTS FOR *BMADJ*.
C
      IF (NN.LE.21) THEN
         CBMTD=14400.
         CBMTS=14400.
      ELSE IF (NN.LE.42) THEN
         CBMTD=7200.
         CBMTS=14400.
      ELSE
         CBMTD=3600.
         CBMTS=14400.
      ENDIF
      CBMEF=0.15
C
      RETURN
      END
C     ------------------------------------------------------------