    SUBROUTINE OUT2RESTRT(ITAG)
!>--------------------------------------------------------------------------------------------------
!> SUBROUTINE OUT2RESTRT
!>
!> SUBPROGRAM: OUT2RESTRT - 
!>
!> DRIVER     : CHKOUT
!>              
!>
!>--------------------------------------------------------------------------------------------------
    USE ABCI  , only: AI, BI, CI
    USE ACMCLD
    USE ACMCLH
    USE ACMPRE
    USE ACMRDL
    USE ACMRDS
    USE ACMSFC
    USE C_TADJ    !andre    
    USE BOCO      !andre
    USE CLDWTR
    USE CNVCLD
    USE CO2BD2
    USE CO2BD3
    USE CO2BD4
    USE CO2BD5
    USE C_FRACN  
    USE CONTIN
    USE CTLBLK
    USE CUINIT    !andre
    USE DYNAM0
    USE DYNAM2        
    USE F77KINDS
!    USE KFFDBK   
!    USE KFLUT 
    USE INDX
    USE LOOPS
    USE MASKS
    USE MAPOT2   
    USE MPPCOM
    USE NHYDRO
    USE PARMETA
    USE PHYS0 , only: PT, DETA, AETA
    USE PHYS2
    USE PPTASM
    USE PRFHLD    !andre
    USE PVRBLS    !andre
    USE RD1TIM    !andre
    USE SEASO3   
    USE SLOPES
    USE SOIL
    USE TEMPV
    USE TOPO
    USE VRBLS
    USE Z0EFFT  
    USE UPDT
!
    IMPLICIT NONE
!
    INTEGER(KIND=I4KIND)                                                                        ::&
    & ITAG,  LISTOUT 
!
!
!
!
    CHARACTER(LEN=6)                                                                            ::&
    & C_NHRS     
!   
    CHARACTER(LEN=4)                                                                            ::&
    & C_MYPE     
!   
    CHARACTER(LEN=150)                                                                          ::&
    & OUTFILE 
!
!
    WRITE(C_NHRS,'(I6.6)') ITAG  
!
    WRITE(C_MYPE,'(I4.4)') MYPE
!            
    OUTFILE = "OUT2RESTRT/OUT2RESTRT_"//C_MYPE//"."//C_NHRS
!
    LISTOUT=1001
!
    OPEN (UNIT=LISTOUT, FILE= TRIM(OUTFILE), FORM = 'UNFORMATTED')
!
!MODULE_VRBLS
    WRITE(LISTOUT)PD
    WRITE(LISTOUT)FIS
    WRITE(LISTOUT)RES
    WRITE(LISTOUT)T
    WRITE(LISTOUT)U
    WRITE(LISTOUT)V
    WRITE(LISTOUT)Q
!MODULE_CLDWTR
    WRITE(LISTOUT)CWM
    WRITE(LISTOUT)LC
    WRITE(LISTOUT)U00
    WRITE(LISTOUT)SR
    WRITE(LISTOUT)UL
!MODULE_PVRBLS  
    WRITE(LISTOUT)Z0
    WRITE(LISTOUT)USTAR
    WRITE(LISTOUT)UZ0 
    WRITE(LISTOUT)VZ0 
    WRITE(LISTOUT)THZ0   
    WRITE(LISTOUT)QZ0   
    WRITE(LISTOUT)THS
    WRITE(LISTOUT)QS
    WRITE(LISTOUT)AKMS 
    WRITE(LISTOUT)AKHS 
    WRITE(LISTOUT)RF
    WRITE(LISTOUT)TWBS 
    WRITE(LISTOUT)QWBS 
    WRITE(LISTOUT)SNO 
    WRITE(LISTOUT)SI
    WRITE(LISTOUT)CLDEFI 
    WRITE(LISTOUT)PREC
    WRITE(LISTOUT)ACPREC    
    WRITE(LISTOUT)ACCLIQ
    WRITE(LISTOUT)CUPREC
    WRITE(LISTOUT)TH100
    WRITE(LISTOUT)Q100
    WRITE(LISTOUT)U100
    WRITE(LISTOUT)V100
    WRITE(LISTOUT)TH10    
    WRITE(LISTOUT)Q10     
    WRITE(LISTOUT)U10
    WRITE(LISTOUT)V10
    WRITE(LISTOUT)TSHLTR
    WRITE(LISTOUT)TSHLTR1
    WRITE(LISTOUT)QSHLTR
    WRITE(LISTOUT)PSHLTR    
    WRITE(LISTOUT)XMOMFLUX
    WRITE(LISTOUT)YMOMFLUX
    WRITE(LISTOUT)Q2   
!    
    WRITE(LISTOUT) SFCLHX
    WRITE(LISTOUT) SFCSHX
    WRITE(LISTOUT) GLAT !!!
    WRITE(LISTOUT) GLON !!!
    WRITE(LISTOUT) SM   
    WRITE(LISTOUT) HTM
    WRITE(LISTOUT) VTM
    WRITE(LISTOUT) SICE
    WRITE(LISTOUT) OMGALF
    WRITE(LISTOUT) ALBEDO
    WRITE(LISTOUT) ALBASE
    WRITE(LISTOUT) MXSNAL !!!
    WRITE(LISTOUT) CZEN !!!
    WRITE(LISTOUT) CZMEAN !!!
    WRITE(LISTOUT) TCUCN  !!!  
    WRITE(LISTOUT) TRAIN  !!!  
    WRITE(LISTOUT) DIV !!! 
    WRITE(LISTOUT) RTOP !!!
    WRITE(LISTOUT)  AKM10
    WRITE(LISTOUT)  AKM10V           
!
    WRITE(LISTOUT) RSWIN !!!
    WRITE(LISTOUT) RSWOUT !!!
    WRITE(LISTOUT) RSWTOA !!!
    WRITE(LISTOUT) ASWIN
    WRITE(LISTOUT) ASWOUT
    WRITE(LISTOUT) ASWTOA !!!
    WRITE(LISTOUT) RSWTT !!!
!
    WRITE(LISTOUT) RLWIN !!!
    WRITE(LISTOUT) RLWOUT !!!
    WRITE(LISTOUT) RLWTOA !!!
    WRITE(LISTOUT) ALWIN
    WRITE(LISTOUT) ALWOUT
    WRITE(LISTOUT) ALWTOA 
    WRITE(LISTOUT) RLWTT !!!
    WRITE(LISTOUT) EPSR !!!
    WRITE(LISTOUT) RADOT  !!!  
    WRITE(LISTOUT) SIGT4  !!!
!
    WRITE(LISTOUT) CUPPT !!!
    WRITE(LISTOUT) CFRACL !!!
    WRITE(LISTOUT) CFRACM !!!
    WRITE(LISTOUT) CFRACH !!!
    WRITE(LISTOUT) ACFRCV !!!
    WRITE(LISTOUT) ACFRST !!!
    
    WRITE(LISTOUT) F_ICE !!!
    WRITE(LISTOUT) F_RAIN !!!
    WRITE(LISTOUT) F_RIMEF !!!

    WRITE(LISTOUT) CNVTOP !!!
    WRITE(LISTOUT) CNVBOT !!!
    WRITE(LISTOUT) HTOP
    WRITE(LISTOUT) HBOT
!
    WRITE(LISTOUT) APREC
    WRITE(LISTOUT) ACSNOW
    WRITE(LISTOUT) ACSNOM !!!
    WRITE(LISTOUT) STC
    WRITE(LISTOUT) SMC
    WRITE(LISTOUT) SMSTAV
    WRITE(LISTOUT) BGROFF
    WRITE(LISTOUT) SSROFF
    WRITE(LISTOUT) CMC !!!
    WRITE(LISTOUT) POTEVP
    WRITE(LISTOUT) POTFLX
    WRITE(LISTOUT) SFCEVP
    WRITE(LISTOUT) SUBSHX
    WRITE(LISTOUT) SNOPCX
    WRITE(LISTOUT) SMSTOT !!!
    WRITE(LISTOUT) SOILTB !!! 
    WRITE(LISTOUT) TG !!!
!soil_comm
         WRITE(LISTOUT)SFCEXC
         WRITE(LISTOUT)PCTSNO
         WRITE(LISTOUT) GRNFLX !!!
         WRITE(LISTOUT) VEGFRC 
         WRITE(LISTOUT) IVGTYP !!!
         WRITE(LISTOUT) ISLTYP !!!
	 WRITE(LISTOUT)ISLOPE
	 WRITE(LISTOUT)SH2O
	 WRITE(LISTOUT)VEGFRM
	 WRITE(LISTOUT)SLDPTH
	 WRITE(LISTOUT)RTDPTH
!acmpre_comm
	 WRITE(LISTOUT)TPREC
!seaso3_comm ?
	 WRITE(LISTOUT)XDUO3N
	 WRITE(LISTOUT)XDO3N2
	 WRITE(LISTOUT)XDO3N3
	 WRITE(LISTOUT)XDO3N4
	 WRITE(LISTOUT)PRGFDL
!phys_comm
	 WRITE(LISTOUT)RADIN
	 WRITE(LISTOUT)SIGT4
	 WRITE(LISTOUT)SST    
!kflut_comm
!	 WRITE(LISTOUT)TTAB
!	 WRITE(LISTOUT)QSTAB
!	 WRITE(LISTOUT)THE0K
!	 WRITE(LISTOUT)ALU
!kffdbk_comm	 
!	 WRITE(LISTOUT)DTDT
!	 WRITE(LISTOUT)DQDT
!	 WRITE(LISTOUT)DQCDT
!	 WRITE(LISTOUT)W0AVG
!	 WRITE(LISTOUT)PPTKF
!	 WRITE(LISTOUT)TNCA
!	 WRITE(LISTOUT)SUMFB
!	 WRITE(LISTOUT)SPSRC
!	 WRITE(LISTOUT)CIN
!contin_comm	 
	 WRITE(LISTOUT)PDSL
         WRITE(LISTOUT)PDSLO
	 WRITE(LISTOUT)PSDT
	 WRITE(LISTOUT)ETADT
!co2dta_comm	 
	 WRITE(LISTOUT)CO251
	 WRITE(LISTOUT)CO258
	 WRITE(LISTOUT)CDT51
	 WRITE(LISTOUT)CDT58
	 WRITE(LISTOUT)C2D51
	 WRITE(LISTOUT)C2D58
	 WRITE(LISTOUT)CO2M51
	 WRITE(LISTOUT)CO2M58
	 WRITE(LISTOUT)CDTM51
	 WRITE(LISTOUT)CDTM58
	 WRITE(LISTOUT)C2DM51
	 WRITE(LISTOUT)C2DM58     !!!!!!!   CO2 (IT WILL BE NECESSARY FOR CLIMATE INTEGRATIONS)
	 WRITE(LISTOUT)STEMP
	 WRITE(LISTOUT)GTEMP
	 WRITE(LISTOUT)CO231
	 WRITE(LISTOUT)CO238
	 WRITE(LISTOUT)CDT31
	 WRITE(LISTOUT)CDT38
	 WRITE(LISTOUT)C2D31
	 WRITE(LISTOUT)C2D38
	 WRITE(LISTOUT)CO271
	 WRITE(LISTOUT)CO278
	 WRITE(LISTOUT)CDT71
	 WRITE(LISTOUT)CDT78
	 WRITE(LISTOUT)C2D71
	 WRITE(LISTOUT)C2D78
	 WRITE(LISTOUT)CO211
	 WRITE(LISTOUT)CO218
!acmcld_comm
	 WRITE(LISTOUT)NCFRCV
	 WRITE(LISTOUT)NCFRST
	 WRITE(LISTOUT)TCLOD        !andre INCLUDE IN CUT-CELL VERSION
	 WRITE(LISTOUT)NCLOD        !andre INCLUDE IN CUT-CELL VERSION
!vrbls_comm
!	 WRITE(LISTOUT)PDOLD   !?
!	 WRITE(LISTOUT)PBH    !?
!	 WRITE(LISTOUT)PB     !?
!	 WRITE(LISTOUT)ACDTDT  !?
!	 WRITE(LISTOUT)RDDTDT
!pptasm_comm	 
         WRITE(LISTOUT)MTSTPE
	 WRITE(LISTOUT)ITSTLOC
	 WRITE(LISTOUT)JTSTLOC
	 WRITE(LISTOUT)PHOUR
	 WRITE(LISTOUT)TLATCU   !BMJ
	 WRITE(LISTOUT)TLATGS   !BMJ
         WRITE(LISTOUT)PPTDAT
!acmrdl_comm
	 WRITE(LISTOUT)TRDLW
	 WRITE(LISTOUT)ARDLW
	 WRITE(LISTOUT)NRDLW
!acmrds.comm
	 WRITE(LISTOUT)TRDSW
	 WRITE(LISTOUT)ARDSW
	 WRITE(LISTOUT)NRDSW
!acmsfc.comm
	 WRITE(LISTOUT)TSRFC
	 WRITE(LISTOUT)ASRFC
	 WRITE(LISTOUT)APHTIM
	 WRITE(LISTOUT)NSRFC
	 WRITE(LISTOUT)SFCUVX  !andre
!loops.comm
	 WRITE(LISTOUT)LMH
	 WRITE(LISTOUT)LMV
	 WRITE(LISTOUT)IHLA
	 WRITE(LISTOUT)IHHA
	 WRITE(LISTOUT)IVLA
	 WRITE(LISTOUT)IVHA
	 WRITE(LISTOUT)JRA
!phys_comm
         WRITE(LISTOUT)PT2
         WRITE(LISTOUT)DETA2
         WRITE(LISTOUT)AETA2
	 WRITE(LISTOUT)DFRLG
	 WRITE(LISTOUT)DTQ2
	 WRITE(LISTOUT)TDTQ2
	 WRITE(LISTOUT)DTD
	 WRITE(LISTOUT)TDTD
	 WRITE(LISTOUT)ROS	 
	 WRITE(LISTOUT)DS
	 WRITE(LISTOUT)ROI
	 WRITE(LISTOUT)CI	 
	 WRITE(LISTOUT)DI
	 WRITE(LISTOUT)PL
	 WRITE(LISTOUT)THL	 
	 WRITE(LISTOUT)RDQ
	 WRITE(LISTOUT)RDTH
	 WRITE(LISTOUT)RDP	 
	 WRITE(LISTOUT)RDTHE
	 WRITE(LISTOUT)PLQ
	 WRITE(LISTOUT)RDPQ	 
	 WRITE(LISTOUT)RDTHEQ
	 WRITE(LISTOUT)PLQ
	 WRITE(LISTOUT)RDPQ	 
	 WRITE(LISTOUT)QS0	 
	 WRITE(LISTOUT)SQS
	 WRITE(LISTOUT)THE0
	 WRITE(LISTOUT)STHE	 
	 WRITE(LISTOUT)THE0Q
	 WRITE(LISTOUT)STHEQ
	 WRITE(LISTOUT)PTBL	 
	 WRITE(LISTOUT)TTBL
	 WRITE(LISTOUT)TTBLQ
	 WRITE(LISTOUT)SSTM	 
	 WRITE(LISTOUT)KTM
	 WRITE(LISTOUT)GFFC
	 WRITE(LISTOUT)HDAC	 
	 WRITE(LISTOUT)HDACV
!kflut_comm
!         WRITE(LISTOUT)RDPR
!         WRITE(LISTOUT)RDTHK
!         WRITE(LISTOUT)PTOP
!kffdbk_comm	 
!	 WRITE(LISTOUT)RAINCV
!	 WRITE(LISTOUT)PPTCA
!	 WRITE(LISTOUT)PSRC
!	 WRITE(LISTOUT)PCLB
!	 WRITE(LISTOUT)UMFB
!	 WRITE(LISTOUT)SPCLB
!	 WRITE(LISTOUT)TST
!	 WRITE(LISTOUT)NCAD
!	 WRITE(LISTOUT)NCA
!	 WRITE(LISTOUT)NCLDCK	 
!co2dta_comm	 
	 WRITE(LISTOUT)B0
	 WRITE(LISTOUT)B1
	 WRITE(LISTOUT)B2
	 WRITE(LISTOUT)B3
!MODULE_Z0EFFT
	 WRITE(LISTOUT)ZEFFIJ
!MODULE_C_TADJ
 	 WRITE(LISTOUT)T_ADJ
	 WRITE(LISTOUT)T_OLD	 
!MODULE_CTLBLK
 	 WRITE(LISTOUT)IDAT
 	 WRITE(LISTOUT)RUN	 
 	 WRITE(LISTOUT)FIRST	 
 	 WRITE(LISTOUT)RESTRT	 
 	 WRITE(LISTOUT)SIGMA	 
 	 WRITE(LISTOUT)NEST	 	 
 	 WRITE(LISTOUT)SUBPOST	 
! 	 WRITE(LISTOUT)LCORNERM
 	 WRITE(LISTOUT)IOUT
 	 WRITE(LISTOUT)IHRST	 
 	 WRITE(LISTOUT)NFCST	 
 	 WRITE(LISTOUT)NBC	 
 	 WRITE(LISTOUT)LIST	 
 	 WRITE(LISTOUT)NTSD	 
 	 WRITE(LISTOUT)NTSTM
! 	 WRITE(LISTOUT)NDDAMP
 	 WRITE(LISTOUT)NPREC	 
 	 WRITE(LISTOUT)IDTAD	 
 	 WRITE(LISTOUT)NBOCO	 
 	 WRITE(LISTOUT)NSHDE	 
 	 WRITE(LISTOUT)NCP	 
 	 WRITE(LISTOUT)NPHS
 	 WRITE(LISTOUT)NCNVC
 	 WRITE(LISTOUT)NRADS	 
 	 WRITE(LISTOUT)NRADL	 
 	 WRITE(LISTOUT)NTDDMP	 
 	 WRITE(LISTOUT)NSTART	 
! 	 WRITE(LISTOUT)OUTSTR	 
! 	 WRITE(LISTOUT)NDASSIM
! 	 WRITE(LISTOUT)NDASSIMM
 	 WRITE(LISTOUT)INITSST	 
 	 WRITE(LISTOUT)INITCO2	 
 	 WRITE(LISTOUT)IDTAD	 
 	 WRITE(LISTOUT)DT
!MODULE_DYNAM0
         WRITE(LISTOUT)DY       !andre
	 WRITE(LISTOUT)CPGFV    !andre
         WRITE(LISTOUT)EN       !andre
	 WRITE(LISTOUT)ENT      !andre	 
 	 WRITE(LISTOUT)R	 
 	 WRITE(LISTOUT)F4D	 
 	 WRITE(LISTOUT)F4Q
 	 WRITE(LISTOUT)EF4T	 
 	 WRITE(LISTOUT)PT
 	 WRITE(LISTOUT)RDETA
         WRITE(LISTOUT)F4Q2
 	 WRITE(LISTOUT)AETA
 	 WRITE(LISTOUT)DETA	 
 	 WRITE(LISTOUT)ETA
 	 WRITE(LISTOUT)DFL	 
 	 WRITE(LISTOUT)EM
 	 WRITE(LISTOUT)EMT
 	 WRITE(LISTOUT)DX
 	 WRITE(LISTOUT)WPDAR
	 WRITE(LISTOUT)CPGFU    !andre
	 WRITE(LISTOUT)CURV     !andre
 	 WRITE(LISTOUT)FCP	 
 	 WRITE(LISTOUT)FDIV
 	 WRITE(LISTOUT)F        !andre
 	 WRITE(LISTOUT)DDMPU
 	 WRITE(LISTOUT)DDMPV	 
 	 WRITE(LISTOUT)FAD      !andre
! 	 WRITE(LISTOUT)FADV
! 	 WRITE(LISTOUT)FADV2	 
! 	 WRITE(LISTOUT)FADT
! 	 WRITE(LISTOUT)DAETA
! 	 WRITE(LISTOUT)FKIN
! 	 WRITE(LISTOUT)DELTY
! 	 WRITE(LISTOUT)DELTHZ	 
! 	 WRITE(LISTOUT)KAPPA
! 	 WRITE(LISTOUT)P0	 
! 	 WRITE(LISTOUT)RTDF	 
! 	 WRITE(LISTOUT)RTDFDT
! 	 WRITE(LISTOUT)FADTQ	 
! 	 WRITE(LISTOUT)F4D25
! 	 WRITE(LISTOUT)F11	 
! 	 WRITE(LISTOUT)F12
! 	 WRITE(LISTOUT)F21	 
! 	 WRITE(LISTOUT)F22
! 	 WRITE(LISTOUT)P11	 
! 	 WRITE(LISTOUT)P12
! 	 WRITE(LISTOUT)P21	 
! 	 WRITE(LISTOUT)P22
! 	 WRITE(LISTOUT)FDDMP	 
! 	 WRITE(LISTOUT)HSINP
! 	 WRITE(LISTOUT)HCOSP	 
! 	 WRITE(LISTOUT)FVDIFF
! 	 WRITE(LISTOUT)HBMSK	 
!MODULE_DYNAM2
         WRITE(LISTOUT)RDYN     !andre
         WRITE(LISTOUT)ETAD     !andre
         WRITE(LISTOUT)DXX      !andre
         WRITE(LISTOUT)WPDARX   !andre
         WRITE(LISTOUT)CPGFUX   !andre
         WRITE(LISTOUT)CURVX    !andre
         WRITE(LISTOUT)FDIVX    !andre
         WRITE(LISTOUT)FX       !andre
         WRITE(LISTOUT)DDMPUX   !andre
         WRITE(LISTOUT)DDMPVX   !andre
         WRITE(LISTOUT)FADX     !andre
         WRITE(LISTOUT)PTDYN    !andre
         WRITE(LISTOUT)AETAD    !andre
         WRITE(LISTOUT)DETAD    !andre	
!MODULE_NHYDRO
 	 WRITE(LISTOUT)HYDRO
 	 WRITE(LISTOUT)SPLINE	 
 	 WRITE(LISTOUT)DWDT
 	 WRITE(LISTOUT)PDWDT
 	 WRITE(LISTOUT)PINT	 
 	 WRITE(LISTOUT)W
 	 WRITE(LISTOUT)Z
!MODULE_BOCO	 
!	 WRITE(LISTOUT)PDB
!        WRITE(LISTOUT)TB
!	 WRITE(LISTOUT)QB
!	 WRITE(LISTOUT)UB
!	 WRITE(LISTOUT)VB
!	 WRITE(LISTOUT)Q2B
!	 WRITE(LISTOUT)CWMB
!MODULE_CUINIT
         WRITE(LISTOUT)CURAD
!MODULE_INDX
!         WRITE(LISTOUT)IHE
!         WRITE(LISTOUT)IVE
!         WRITE(LISTOUT)IHW
!         WRITE(LISTOUT)IHW
!         WRITE(LISTOUT)IRAD
!         WRITE(LISTOUT)IHEG
!         WRITE(LISTOUT)IVEG
!         WRITE(LISTOUT)IHWG
!         WRITE(LISTOUT)IVWG
!         WRITE(LISTOUT)IRADG
!MODULE_PRFHLD
         WRITE(LISTOUT)TLMIN
         WRITE(LISTOUT)TLMAX
!MODULE_TEMPV
         WRITE(LISTOUT)P0
         WRITE(LISTOUT)T0
	 WRITE(LISTOUT)Q0
!MODULE_TOPO
         WRITE(LISTOUT)TEMP2X
         WRITE(LISTOUT)TTVG
	 WRITE(LISTOUT)HTMG
!MODULE_ACMCLH 
         WRITE(LISTOUT)NHEAT
         WRITE(LISTOUT)THEAT
         WRITE(LISTOUT)AVRAIN
         WRITE(LISTOUT)AVCNVC
         WRITE(LISTOUT)ARATIM
         WRITE(LISTOUT)ACUTIM
!MODULE_MASKS
!         WRITE(LISTOUT)HBM2
!         WRITE(LISTOUT)HBM3
!         WRITE(LISTOUT)VBM2
!         WRITE(LISTOUT)VBM3
!MODULE MAPOT2
         WRITE(LISTOUT)R1
         WRITE(LISTOUT)PT1
         WRITE(LISTOUT)AETA1
         WRITE(LISTOUT)DETA1
         WRITE(LISTOUT)ETA1
         WRITE(LISTOUT)LSL
         WRITE(LISTOUT)IXM
	 WRITE(LISTOUT)IYM
         WRITE(LISTOUT)ISHDE
         WRITE(LISTOUT)TSPH
         WRITE(LISTOUT)WBD
         WRITE(LISTOUT)SBD
         WRITE(LISTOUT)TLM0D
         WRITE(LISTOUT)TPH0D
         WRITE(LISTOUT)DLMD
	 WRITE(LISTOUT)DPHD
         WRITE(LISTOUT)CMLD
         WRITE(LISTOUT)DP30
         WRITE(LISTOUT)X1P
         WRITE(LISTOUT)Y1P
         WRITE(LISTOUT)DISLP
         WRITE(LISTOUT)Z0SLP
 	 WRITE(LISTOUT)SPL		 
	 WRITE(LISTOUT)ALSL 
	 WRITE(LISTOUT)TSHDE
	 WRITE(LISTOUT)ERLAM0 
	 WRITE(LISTOUT)CPHI0	 	 
	 WRITE(LISTOUT)SPHI0
!MODULE_SLOPES
         WRITE(LISTOUT)ISLD
         WRITE(LISTOUT)VTMS 
!MODULE_RD1TIM
         WRITE(LISTOUT)K400
         WRITE(LISTOUT)RAD1
         WRITE(LISTOUT)CTHK
         WRITE(LISTOUT)TAUCV
         WRITE(LISTOUT)PTOPC
         WRITE(LISTOUT)LTOP
         WRITE(LISTOUT)LVL
!MODULE_UPDT
         WRITE(LISTOUT)LSST
         WRITE(LISTOUT)NSST
         WRITE(LISTOUT)YR
         WRITE(LISTOUT)MON
         WRITE(LISTOUT)DAY
         WRITE(LISTOUT)UTC
         WRITE(LISTOUT)CHARDATE
         WRITE(LISTOUT)VARUPDATED 
         WRITE(LISTOUT)SSTR	
!MODULE_ABCI
         WRITE(LISTOUT)AI
	 WRITE(LISTOUT)BI
	 WRITE(LISTOUT)CI
!
	 CLOSE(LISTOUT)
	 
	 IF (MYPE == 0) THEN
            WRITE(*,*) ' OU2RESTRT: END OF WRITING'
            WRITE(*,*) ' '
         END IF
   
    END SUBROUTINE OUT2RESTRT
