Changeset 2008 for palm/trunk/SOURCE

Timestamp:

Aug 24, 2016 3:53:00 PM (8 years ago)

Author:

kanani

Message:

last commit documented

Location:

palm/trunk/SOURCE

Files:

• Makefile (modified) (1 diff)
• average_3d_data.f90 (modified) (1 diff)
• check_parameters.f90 (modified) (2 diffs)
• data_output_3d.f90 (modified) (2 diffs)
• init_3d_model.f90 (modified) (2 diffs)
• modules.f90 (modified) (2 diffs)
• netcdf_interface_mod.f90 (modified) (2 diffs)
• palm.f90 (modified) (2 diffs)
• parin.f90 (modified) (1 diff)
• plant_canopy_model_mod.f90 (modified) (2 diffs)
• prognostic_equations.f90 (modified) (2 diffs)
• radiation_model_mod.f90 (modified) (2 diffs)
• sum_up_3d_data.f90 (modified) (1 diff)
• surface_layer_fluxes_mod.f90 (modified) (2 diffs)
• swap_timelevel.f90 (modified) (2 diffs)
• time_integration.f90 (modified) (2 diffs)
• urban_surface_mod.f90 (modified) (1 diff)
• user_init_urban_surface.f90 (modified) (1 diff)

palm/trunk/SOURCE/Makefile

@@ -20 +20 @@
 # Current revisions:
 # ------------------
+# 
+# 
+# Former revisions:
+# -----------------
+# $Id$
+#
+# 2007 2016-08-24 15:47:17Z kanani
 # urban surface module added,
 # cleaned up some lines (compiler flags/options), which were accidentally
 # added in rev1938
 # 
-# Former revisions:
-# -----------------
-# $Id$
-#
 # 1998 2016-08-20 18:45:34Z knoop
 # Bugfix: added netcdf_interface to dependency list for user_init_land_surface

palm/trunk/SOURCE/average_3d_data.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! 
+! 
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 2007 2016-08-24 15:47:17Z kanani
 ! Added support for new urban surface model (temporary modifications of 
 ! SELECT CASE ( ) necessary, see variable trimvar),
 ! added comments in variable declaration section
 ! 
-! Former revisions:
-! -----------------
-! $Id$
-!
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! Added checks for the urban surface model,
-! increased counter in DO WHILE loop over data_output (for urban surface output)
+! 
 ! 
 ! Former revisions:
@@ -27 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Added checks for the urban surface model,
+! increased counter in DO WHILE loop over data_output (for urban surface output)
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! Added support for new urban surface model (temporary modifications of 
-! SELECT CASE ( ) necessary, see variable trimvar)
+! 
 ! 
 ! Former revisions:
@@ -27 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Added support for new urban surface model (temporary modifications of 
+! SELECT CASE ( ) necessary, see variable trimvar)
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! Added support for urban surface model,
-! adjusted location_message in case of plant_canopy
+! 
 ! 
 ! Former revisions:
@@ -27 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Added support for urban surface model,
+! adjusted location_message in case of plant_canopy
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! Increased DIMENSION of data_output, data_output_user, do2d, do3d
+! 
 ! 
 ! Former revisions:
@@ -26 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Increased DIMENSION of data_output, data_output_user, do2d, do3d
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
+! 
+! 
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 2007 2016-08-24 15:47:17Z kanani
 ! Added support for new urban surface model (temporary modifications of 
 ! SELECT CASE ( ) necessary, see variable trimvar),
@@ -25 +32 @@
 ! increased LEN of char_cross_profiles, var_list, var_list_old
 ! 
-! Former revisions:
-! -----------------
-! $Id$
-!
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/palm.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! Temporarily added CALL for writing of restart data for urban surface model
+! 
 ! 
 ! Former revisions:
@@ -26 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Temporarily added CALL for writing of restart data for urban surface model
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/parin.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! Added call to urban surface model for reading of &urban_surface_par
+! 
 ! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! 
+! 2007 2016-08-24 15:47:17Z kanani
+! Added call to urban surface model for reading of &urban_surface_par
 ! 
 ! 2004 2016-08-24 10:25:59Z suehring

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! 
+! 
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 2007 2016-08-24 15:47:17Z kanani
 ! Added SUBROUTINE pcm_read_plant_canopy_3d for reading 3d plant canopy data
 ! from file (new case canopy_mode=read_from_file_3d) in the course of
@@ -26 +33 @@
 ! resorted SUBROUTINEs to alphabetical order
 ! 
-! Former revisions:
-! -----------------
-! $Id$
-!
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! Added pt tendency calculation based on energy balance at urban surfaces
-! (new urban surface model)
+! 
 ! 
 ! Former revisions:
@@ -27 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Added pt tendency calculation based on energy balance at urban surfaces
+! (new urban surface model)
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! 
+! 
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 2007 2016-08-24 15:47:17Z kanani
 ! Added calculation of solar directional vector for new urban surface 
 ! model,
@@ -25 +32 @@
 ! correction of comments for zenith angle.
 ! 
-! Former revisions:
-! -----------------
-! $Id$
-!
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! 
+! 
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 2007 2016-08-24 15:47:17Z kanani
 ! Added support for new urban surface model (temporary modifications of 
 ! SELECT CASE ( ) necessary, see variable trimvar),
 ! added comments in variable declaration section
 ! 
-! Former revisions:
-! -----------------
-! $Id$
-!
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! Account for urban surface model in computation of vertical kinematic heatflux
+! 
 ! 
 ! Former revisions:
@@ -26 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Account for urban surface model in computation of vertical kinematic heatflux
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/swap_timelevel.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! Added swapping of urban surface model quantities,
-! removed redundance for land surface model
+! 
 ! 
 ! Former revisions:
@@ -27 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Added swapping of urban surface model quantities,
+! removed redundance for land surface model
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! Added CALLs for new urban surface model
+! 
 ! 
 ! Former revisions:
@@ -26 +26 @@
 ! $Id$
 !
+! 2007 2016-08-24 15:47:17Z kanani
+! Added CALLs for new urban surface model
+! 
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-! Initial revision
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 2007 2016-08-24 15:47:17Z kanani
+! Initial revision
 !
 !

palm/trunk/SOURCE/user_init_urban_surface.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! Initial revision
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 2007 2016-08-24 15:47:17Z kanani
+! Initial revision
 !
 !