pkg/oasim/OASIM_SLINGO.h

87dd4f7d5f Oliv*0001 #ifdef ALLOW_OASIM
                0002
                0003 CBOP
                0004 C     !ROUTINE: OASIM_SLINGO.h
                0005 C     !INTERFACE:
                0006 C #include OASIM_SLINGO.h
                0007
                0008 C     !DESCRIPTION:
                0009 C     global variables for slingo cloud model
                0010 CEOP
                0011
                0012       INTEGER ncld
                0013       PARAMETER(ncld=24)
                0014       _RL rnl1(ncld),rnl2(ncld)
                0015       _RL asl(ncld),bsl(ncld),csl(ncld),dsl(ncld)
                0016       _RL esl(ncld),fsl(ncld)
                0017       COMMON /OASIM_SLINGO_PARMS/ rnl1,rnl2,asl,bsl,csl,dsl,esl,fsl
                0018
                0019       INTEGER ica(nlt)
                0020       _RL U1
                0021       COMMON /OASIM_SLINGO_SAVE/ U1
                0022       COMMON /OASIM_BICA/ ica
                0023
                0024 #endif /* ALLOW_OASIM */