Changeset 3552 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Nov 22, 2018 10:28:35 AM (6 years ago)

Author:

suehring

Message:

further variables documented

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! variables documented and unused variables removed
 ! 
 ! Former revisions:
@@ -306 +306 @@
        INTEGER(iwp) ::  tind_p !< time index for following time in mesoscale-offline nesting
 
-       LOGICAL      ::  init         = .FALSE.
-       LOGICAL      ::  from_file    = .FALSE.
+       LOGICAL      ::  init         = .FALSE. !< flag indicating that offline nesting is already initialized
 
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  surface_pressure !< time dependent surface pressure
@@ -1171 +1170 @@
        INTEGER(iwp) ::  val      !< value of the attribute
        
-       LOGICAL ::  global                 !< flag indicating a global or a variable's attribute
+       LOGICAL ::  global        !< flag indicating a global or a variable's attribute
 
 #if defined ( __netcdf )
@@ -3135 +3134 @@
        IMPLICIT NONE
 
-       CHARACTER(LEN=100), DIMENSION(:), ALLOCATABLE ::  var_names
+       CHARACTER(LEN=100), DIMENSION(:), ALLOCATABLE ::  var_names !< string containing all variables on file
       
        INTEGER(iwp) ::  id_dynamic !< NetCDF id of dynamic input file
@@ -3281 +3280 @@
        INTEGER(iwp) ::  num_vars   !< number of variables in netcdf input file
        INTEGER(iwp) ::  t          !< running index time dimension
-
-       nest_offl%from_file = MERGE( .TRUE., .FALSE., input_pids_dynamic ) 
 !
 !--    Skip input if no forcing from larger-scale models is applied.
@@ -5030 +5027 @@
        INTEGER(iwp)                ::  id_var           !< dimension id
 
-       REAL(wp), DIMENSION(:), INTENT(INOUT) ::  var  !< variable to be read
+       REAL(wp), DIMENSION(:), INTENT(INOUT) ::  var    !< variable to be read
 #if defined( __netcdf )
 
@@ -5395 +5392 @@
                                                          !< to its reverse memory access
 
-       REAL(wp), DIMENSION(:,:,:), INTENT(INOUT) ::  var  !< variable to be read
+       REAL(wp), DIMENSION(:,:,:), INTENT(INOUT) ::  var !< variable to be read
 #if defined( __netcdf )
 
@@ -5874 +5871 @@
        IMPLICIT NONE
 
-       CHARACTER(LEN=6) ::  message_identifier
-       CHARACTER(LEN=*) ::  routine_name
-       CHARACTER(LEN=*), OPTIONAL ::  name
+       CHARACTER(LEN=6) ::  message_identifier !< string for the error number
+       CHARACTER(LEN=*) ::  routine_name       !< routine name where the error happened
+       CHARACTER(LEN=*), OPTIONAL ::  name     !< name of variable where reading failed
 
        INTEGER(iwp) ::  errno