cam_aeroprop.F:C                               BE USED IN COAGD BY RECRYS ARRAY.
cam_aeroprop.F:              RECRYS(I,L,N)=RHOP(I,L,N)  !Assign dry rhop the value for coagd use
cam_coagd.F:      SUBROUTINE COAGD (     ILG,    IL1,    IL2,     ILEV,  THROW, 
cam_coagd.F: 555  FORMAT (' COAGD -> BETA COMPUTED @ ',I5)
cam_v01.F:      CALL COAGD   (   ILG,    IL1,    IL2,     ILEV, THROW,
cam_v01.F:         WRITE (*,*) ' COAGD -> RTCOA  ', RTCOA(ID,DLEV,ITR),ICOB
cam_v01.F:         WRITE (*,*) ' COAGD -> XROW   ', XROW(ID,DLEV+1,ITR)
cam_v01_20050319.F:      CALL COAGD   (   ILG,    IL1,    IL2,     ILEV, THROW,
cam_v01_20050319.F:         WRITE (*,*) ' COAGD -> RTCOA  ', RTCOA(ID,DLEV,ITR),ICOB
cam_v01_20050319.F:         WRITE (*,*) ' COAGD -> XROW   ', XROW(ID,DLEV+1,ITR)
cam_v01new.F:!       PRINT*,'------BEFROE CALL COAGD------------'
cam_v01new.F:      CALL COAGD   (   ILG,    IL1,    IL2,     ILEV, THROW,
cam_v01new.F:         WRITE (*,*) ' COAGD -> RTCOA  ', RTCOA(ID,DLEV,ITR),ICOB
cam_v01new.F:         WRITE (*,*) ' COAGD -> XROW   ', XROW(ID,DLEV+1,ITR)
cam_v01new.F:           print*,'-------------AFTER  CALL coagd------------------'
cam_v01new.F:!      PRINT*,'-------AFTER CALL COAGD------- '
