restartsave.f90

来自「CLM集合卡曼滤波数据同化算法」· F90 代码 · 共 50 行

      subroutine restartsave (lun_rst)

!=======================================================================
!     Source file: restartsave.f90
!     Save land surface variables needed for restart
!=======================================================================
      use clmtv_module
      implicit none
      integer    lun_rst  ! logical unit number of restart file


      rewind(unit=lun_rst)
!      write(unit=lun_rst) &
!                     mcsec ,jday  ,iyear ,xerr ,zerr ,&
!                     dz    ,z     ,zi    ,tss  ,wliq ,wice ,&
!                     rootr ,tlsun ,tlsha ,ldew ,sag  ,scv  ,snowdp,&
!                     etrc  ,tg    ,albg  ,albv ,alb  ,ssun ,ssha  ,tranc ,thermk ,extkb ,extkd ,&
!                     cosz  ,green ,fveg  ,fsno ,sigf ,lai  ,sai   ,snl


      write(unit=lun_rst,*) mcsec,jday,iyear 
      write(unit=lun_rst,*) xerr,zerr
      write(unit=lun_rst,*) dz
      write(unit=lun_rst,*) z
      write(unit=lun_rst,*) zi
      write(unit=lun_rst,*) tss
      write(unit=lun_rst,*) wliq
      write(unit=lun_rst,*) wice
      write(unit=lun_rst,*) rootr
      write(unit=lun_rst,*) tlsun,tlsha
      write(unit=lun_rst,*) ldew
      write(unit=lun_rst,*) sag,scv,snowdp
      write(unit=lun_rst,*) etrc
      write(unit=lun_rst,*) tg
      write(unit=lun_rst,*) albg
      write(unit=lun_rst,*) albv
      write(unit=lun_rst,*) alb
      write(unit=lun_rst,*) ssun
      write(unit=lun_rst,*) ssha
      write(unit=lun_rst,*) thermk
      write(unit=lun_rst,*) extkb,extkd
      write(unit=lun_rst,*) cosz,green
      write(unit=lun_rst,*) fveg,fsno,sigf
      write(unit=lun_rst,*) lai,sai
      write(unit=lun_rst,*) snl
      


      END SUBROUTINE restartsave