Remove unused write state var support

lis/core/LIS_lsm_FTable.c

@@ -1961,63 +1961,6 @@ void FTN(lsmdaupdatestate)(char *j, int *n, void *LSM_State, void *LSM_Incr_Stat
   current->func(n,LSM_State, LSM_Incr_State);
 }
 
-//BOP
-// !ROUTINE: registerwritestatevar
-// \label{registerwritestatevar}
-// 
-// !INTERFACE:
-//void FTN(registerwritestatevar)(char *j, int *j, void (*func)(int *, int*, void*),int len)
-//  
-// !DESCRIPTION: 
-//  Makes an entry in the registry for the routine 
-//  for obtaining the specified prognostic variables from the 
-//  land surface model 
-// 
-//  \begin{description}
-//  \item[j]
-//   name of the LSM
-//  \item[j]
-//   index of the variable
-//  \end{description}
-//EOP
-//{ 
-//  ft_check_index(*i, FT_MAX_LSM, "registerwritestatevar");
-//  ft_check_index(*j, FT_MAX_DAVAROBS, "registerwritestatevar");
-//  wrtvar[*i][*j].func = func; 
-//}
-//BOP
-// !ROUTINE: writelsmstatevar
-// \label{writelsmstatevar}
-// 
-// !INTERFACE:
-//void FTN(writelsmstatevar)(char *j, int *j, int *ftn, int *n, void *state)
-//  
-// !DESCRIPTION: 
-//  Invokes the routine from the registry for obtaining
-//  the specified prognostic variables from the land surface model
-// 
-//  \begin{description}
-//  \item[j]
-//   name of the LSM
-//  \item[j]
-//   index of the variable
-//  \item[n]
-//   index of the nest
-//  \item[statevars]
-//   pointer to the prognostic variable array
-//  \end{description}
-//EOP
-//{ 
-//  if(wrtvar[*i][*j].func==NULL) {
-//    printf("****************Error****************************\n"); 
-//    printf("routine that writes state prognostic variables for lsm %d and variable %d is not defined \n",*i,*j); 
-//    printf("program will segfault.....\n"); 
-//    printf("****************Error****************************\n"); 
-//    exit;
-//  }
-//  wrtvar[*i][*j].func(ftn, n, state); 
-//}
-
 //BOP
 // !ROUTINE: registerlsmcplsetexport
 // \label{registerlsmcplsetexport}

lis/plugins/LIS_lsmda_pluginMod.F90

@@ -740,6 +740,19 @@ subroutine LIS_lsmda_plugin
 #endif
 #endif
 
+   external :: registerlsmdainit
+   external :: registerlsmdagetstatevar
+   external :: registerlsmdaobstransform
+   external :: registerlsmdamapobstolsm
+   external :: registerlsmdaupdatestate
+   external :: registerlsmdaqcstate
+   external :: registerlsmdasetstatevar
+   external :: registerlsmdagetobspred
+   external :: registerlsmdaqcobsstate
+   external :: registerlsmdascalestatevar
+   external :: registerlsmdadescalestatevar
+   external :: registerlsmdadiagnosevars
+
 #if ( defined SM_NOAH_2_7_1 )
 #if ( defined DA_OBS_SNODEP )
 ! Noah-2.7.1 snow depth
@@ -3269,7 +3282,6 @@ subroutine LIS_lsmda_plugin
         trim(LIS_GRACEtwsobsId)//char(0),clsmf25_descale_tws)
    call registerlsmdaupdatestate(trim(LIS_clsmf25Id)//"+"//&
         trim(LIS_GRACEtwsobsId)//char(0), clsmf25_update_tws)
-!    call registerwritestatevar(trim(LIS_clsmf25Id)//"+"trim(LIS_GRACEtwsobsId)//char(0),clsmf25_write_tws)
    call registerlsmdadiagnosevars(trim(LIS_clsmf25Id)//"+"//&
         trim(LIS_GRACEtwsobsId)//char(0),clsmf25_tws_DAlog)
 
@@ -3290,7 +3302,6 @@ subroutine LIS_lsmda_plugin
         trim(LIS_simGRACEJPLobsId)//char(0),clsmf25_descale_tws)
    call registerlsmdaupdatestate(trim(LIS_clsmf25Id)//"+"//&
         trim(LIS_simGRACEJPLobsId)//char(0), clsmf25_update_tws)
-!    call registerwritestatevar(trim(LIS_clsmf25Id)//"+"trim(LIS_simGRACEJPLobsId)//char(0),clsmf25_write_tws)
    call registerlsmdadiagnosevars(trim(LIS_clsmf25Id)//"+"//&
         trim(LIS_simGRACEJPLobsId)//char(0),clsmf25_tws_DAlog)
 #endif