GitHub Issue NOAA-EMC#13. Continuing to clear through coding standard…

… issues in the master. Finished through src/gsi/observer.F90.

src/gsi/Nst_Var_ESMFMod.f90 → src/gsi/nst_var_esmfmod.f90

@@ -1,26 +1,26 @@
 !
-! !MODULE: Nst_Var_ESMFMod  ---                Definition of the Nst_Var model
-!                                           fields in the ESMF internal state.
+! !MODULE: nst_var_esmfmod  ---                Definition of the nst_var model
+!                                           fields in the esmf internal state.
 !
-! !DESCRIPTION: Nst_Var_ESMFMod ---            Define the Nst_Var model  variables
-!                                            in the ESMF internal state.
+! !DESCRIPTION: nst_var_esmfmod ---            Define the nst_var model  variables
+!                                            in the esmf internal state.
 !---------------------------------------------------------------------------
 ! !REVISION HISTORY:
 !
 !  May 2008      Shrinivas Moorthi Initial code.
-!  Aug 2009      Xu Li for DTM-1p
+!  Aug 2009      Xu Li for dtm-1p
 !  Mar 2014      Fanglin Yang   removed pointers for fixing digital filter
-!  Apr 2014      Xu Li   introduce to and modified for GSI (from GSM)
+!  Apr 2014      Xu Li   introduce to and modified for gsi (from gsm)
 !
 ! !INTERFACE:
 !
- MODULE Nst_Var_ESMFMod
+ module nst_var_esmfmod
 
  use kinds, only: i_kind,r_kind
 
- IMPLICIT none
+ implicit none
 
- TYPE Nst_Var_Data
+ type nst_var_data
     real(r_kind),allocatable:: slmsk    (:,:)
     real(r_kind),allocatable:: xt       (:,:)
     real(r_kind),allocatable:: xs       (:,:)
@@ -39,8 +39,8 @@ MODULE Nst_Var_ESMFMod
     real(r_kind),allocatable:: d_conv   (:,:)
     real(r_kind),allocatable:: ifd      (:,:)
     real(r_kind),allocatable:: tref     (:,:)
-    real(r_kind),allocatable:: Qrain    (:,:)
- end type Nst_Var_Data
+    real(r_kind),allocatable:: qrain    (:,:)
+ end type nst_var_data
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    contains
    subroutine nstvar_aldata(dim1,dim2,data,iret)
@@ -49,29 +49,29 @@ subroutine nstvar_aldata(dim1,dim2,data,iret)
       type(nst_var_data),intent(inout)  :: data
       integer(i_kind), intent(out)      :: iret
 !
-allocate(                         &
-      data%slmsk   (dim1,dim2),   &
-      data%xt      (dim1,dim2),   &
-      data%xs      (dim1,dim2),   &
-      data%xu      (dim1,dim2),   &
-      data%xv      (dim1,dim2),   &
-      data%xz      (dim1,dim2),   &
-      data%zm      (dim1,dim2),   &
-      data%xtts    (dim1,dim2),   &
-      data%xzts    (dim1,dim2),   &
-      data%dt_cool (dim1,dim2),   &
-      data%z_c     (dim1,dim2),   &
-      data%c_0     (dim1,dim2),   &
-      data%c_d     (dim1,dim2),   &
-      data%w_0     (dim1,dim2),   &
-      data%w_d     (dim1,dim2),   &
-      data%d_conv  (dim1,dim2),   &
-      data%ifd     (dim1,dim2),   &
-      data%tref    (dim1,dim2),   &
-      data%Qrain   (dim1,dim2),   &
-      stat=iret)
-    if(iret.ne.0) iret=-3
-    return
-  end subroutine nstvar_aldata
+      allocate(                      &
+         data%slmsk   (dim1,dim2),   &
+         data%xt      (dim1,dim2),   &
+         data%xs      (dim1,dim2),   &
+         data%xu      (dim1,dim2),   &
+         data%xv      (dim1,dim2),   &
+         data%xz      (dim1,dim2),   &
+         data%zm      (dim1,dim2),   &
+         data%xtts    (dim1,dim2),   &
+         data%xzts    (dim1,dim2),   &
+         data%dt_cool (dim1,dim2),   &
+         data%z_c     (dim1,dim2),   &
+         data%c_0     (dim1,dim2),   &
+         data%c_d     (dim1,dim2),   &
+         data%w_0     (dim1,dim2),   &
+         data%w_d     (dim1,dim2),   &
+         data%d_conv  (dim1,dim2),   &
+         data%ifd     (dim1,dim2),   &
+         data%tref    (dim1,dim2),   &
+         data%qrain   (dim1,dim2),   &
+         stat=iret)
+      if(iret/=0) iret=-3
+      return
+   end subroutine nstvar_aldata
 
- END MODULE Nst_Var_ESMFMod
+ end module nst_var_esmfmod