enkf_judge.f90

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

   subroutine enkf_judge( )

!  --------------------------------------------------------------------
! | this procedure is used for judging whether or not the remote       |
! | sensing data does exist. if yes, enkf_analysis is excuted ;if not  |
! | skip over enkf_analysis(), and run enkf_add_noise()                |
! |                                                                    |
! | source file: enkf_judge.f90                                        |
! | author : QinJun, 6/5/2004                                          |
!  --------------------------------------------------------------------
!  ====================================================================
!  note:the present code in this subroutine is temporarily
!  used for single point running
!  
!  ====================================================================

         use enkfobs_module
         use enkfpar_module
	 use clmpar_module

	 implicit none


	 read(lun_obs,*) sat_obs


	 
 
   end subroutine enkf_judge