Changeset 1036 for palm/trunk/SOURCE


Ignore:
Timestamp:
Oct 22, 2012 1:43:42 PM (9 years ago)
Author:
raasch
Message:

code has been put under the GNU General Public License (v3)

Location:
palm/trunk/SOURCE
Files:
156 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r1024 r1036  
    1 #------------------------------------------------------------------------------!
     1#--------------------------------------------------------------------------------#
     2# This file is part of PALM.
     3#
     4# PALM is free software: you can redistribute it and/or modify it under the terms
     5# of the GNU General Public License as published by the Free Software Foundation,
     6# either version 3 of the License, or (at your option) any later version.
     7#
     8# PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     9# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     10# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     11#
     12# You should have received a copy of the GNU General Public License along with
     13# PALM. If not, see <http://www.gnu.org/licenses/>.
     14#
     15# Copyright 1997-2012  Leibniz University Hannover
     16#--------------------------------------------------------------------------------#
     17#
    218# WARNING: don't write filenames with extension .f90 in this header!!!!
    319#
  • palm/trunk/SOURCE/Makefile_check

    r871 r1036  
    1 #------------------------------------------------------------------------------!
     1#--------------------------------------------------------------------------------#
     2# This file is part of PALM.
     3#
     4# PALM is free software: you can redistribute it and/or modify it under the terms
     5# of the GNU General Public License as published by the Free Software Foundation,
     6# either version 3 of the License, or (at your option) any later version.
     7#
     8# PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     9# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     10# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     11#
     12# You should have received a copy of the GNU General Public License along with
     13# PALM. If not, see <http://www.gnu.org/licenses/>.
     14#
     15# Copyright 1997-2012  Leibniz University Hannover
     16#--------------------------------------------------------------------------------#
     17#
    218# WARNING: don't write filenames with extension .f90 in this header!!!!
    319#
  • palm/trunk/SOURCE/advec_s_bc.f90

    r1011 r1036  
    11 SUBROUTINE advec_s_bc( sk, sk_char )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_s_pw.f90

    r1011 r1036  
    11 MODULE advec_s_pw_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_s_up.f90

    r1011 r1036  
    11 MODULE advec_s_up_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_u_pw.f90

    r484 r1036  
    11 MODULE advec_u_pw_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_u_up.f90

    r484 r1036  
    11 MODULE advec_u_up_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_v_pw.f90

    r484 r1036  
    11 MODULE advec_v_pw_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_v_up.f90

    r484 r1036  
    11 MODULE advec_v_up_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_w_pw.f90

    r667 r1036  
    11 MODULE advec_w_pw_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_w_up.f90

    r484 r1036  
    11 MODULE advec_w_up_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/advec_ws.f90

    r1028 r1036  
    11 MODULE advec_ws
    22
    3 !-----------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/average_3d_data.f90

    r979 r1036  
    11 SUBROUTINE average_3d_data
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/boundary_conds.f90

    r997 r1036  
    11 SUBROUTINE boundary_conds( range )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/buoyancy.f90

    r1017 r1036  
    11 MODULE buoyancy_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Currrent revisions:
    521! -----------------
  • palm/trunk/SOURCE/calc_liquid_water_content.f90

    r668 r1036  
    11 SUBROUTINE calc_liquid_water_content
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/calc_precipitation.f90

    r667 r1036  
    11 MODULE calc_precipitation_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/calc_radiation.f90

    r484 r1036  
    11 MODULE calc_radiation_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/calc_spectra.f90

    r1004 r1036  
    11 SUBROUTINE calc_spectra
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/check_for_restart.f90

    r1033 r1036  
    11 SUBROUTINE check_for_restart
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/check_namelist_files.f90

    r932 r1036  
    11PROGRAM check_namelist_files
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/check_open.f90

    r1035 r1036  
    11SUBROUTINE check_open( file_id )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/check_parameters.f90

    r1035 r1036  
    11 SUBROUTINE check_parameters
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/close_file.f90

    r1035 r1036  
    11 SUBROUTINE close_file( file_id )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/compute_vpt.f90

    r804 r1036  
    11 SUBROUTINE compute_vpt
    22
    3 !-------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/coriolis.f90

    r1017 r1036  
    11 MODULE coriolis_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/cpu_log.f90

    r392 r1036  
    11 SUBROUTINE cpu_log( log_event, place, modus, barrierwait )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/cpu_statistics.f90

    r1017 r1036  
    11 SUBROUTINE cpu_statistics
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/data_log.f90

    r484 r1036  
    11 SUBROUTINE data_log( array, i1, i2, j1, j2, k1, k2 )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/data_output_2d.f90

    r1035 r1036  
    11 SUBROUTINE data_output_2d( mode, av )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/data_output_3d.f90

    r1035 r1036  
    11 SUBROUTINE data_output_3d( av )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/data_output_dvrp.f90

    r829 r1036  
    1  MODULE dvrp_color
    2 
    3     USE dvrp_variables
    4 
    5     IMPLICIT NONE
    6 
    7  CONTAINS
    8 
    9     SUBROUTINE color_dvrp( value, color )
    10 
    11        REAL, INTENT(IN)  ::  value
    12        REAL, INTENT(OUT) ::  color(4)
    13 
    14        REAL              ::  scale
    15 
    16        scale = ( value - slicer_range_limits_dvrp(1,islice_dvrp) ) / &
    17                ( slicer_range_limits_dvrp(2,islice_dvrp) -           &
    18                  slicer_range_limits_dvrp(1,islice_dvrp) )
    19 
    20        scale = MODULO( 180.0 + 180.0 * scale, 360.0 )
    21 
    22        color = (/ scale, 0.5, 1.0, 0.0 /)
    23 
    24     END SUBROUTINE color_dvrp
    25 
    26  END MODULE dvrp_color
    27 
    28 
    29  RECURSIVE SUBROUTINE data_output_dvrp
    30 
    31 !------------------------------------------------------------------------------!
     1!--------------------------------------------------------------------------------!
     2! This file is part of PALM.
     3!
     4! PALM is free software: you can redistribute it and/or modify it under the terms
     5! of the GNU General Public License as published by the Free Software Foundation,
     6! either version 3 of the License, or (at your option) any later version.
     7!
     8! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     9! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     10! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     11!
     12! You should have received a copy of the GNU General Public License along with
     13! PALM. If not, see <http://www.gnu.org/licenses/>.
     14!
     15! Copyright 1997-2012  Leibniz University Hannover
     16!--------------------------------------------------------------------------------!
     17!
    3218! Current revisions:
    3319! -----------------
     
    7763! Plot of isosurface, particles and slicers with dvrp-software
    7864!------------------------------------------------------------------------------!
     65
     66 MODULE dvrp_color
     67
     68    USE dvrp_variables
     69
     70    IMPLICIT NONE
     71
     72 CONTAINS
     73
     74    SUBROUTINE color_dvrp( value, color )
     75
     76       REAL, INTENT(IN)  ::  value
     77       REAL, INTENT(OUT) ::  color(4)
     78
     79       REAL              ::  scale
     80
     81       scale = ( value - slicer_range_limits_dvrp(1,islice_dvrp) ) / &
     82               ( slicer_range_limits_dvrp(2,islice_dvrp) -           &
     83                 slicer_range_limits_dvrp(1,islice_dvrp) )
     84
     85       scale = MODULO( 180.0 + 180.0 * scale, 360.0 )
     86
     87       color = (/ scale, 0.5, 1.0, 0.0 /)
     88
     89    END SUBROUTINE color_dvrp
     90
     91 END MODULE dvrp_color
     92
     93
     94 RECURSIVE SUBROUTINE data_output_dvrp
     95
    7996#if defined( __dvrp_graphics )
    8097
  • palm/trunk/SOURCE/data_output_mask.f90

    r1035 r1036  
    11 SUBROUTINE data_output_mask( av )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/data_output_profiles.f90

    r965 r1036  
    11 SUBROUTINE data_output_profiles
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/data_output_ptseries.f90

    r826 r1036  
    11 SUBROUTINE data_output_ptseries
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/data_output_spectra.f90

    r965 r1036  
    11 SUBROUTINE data_output_spectra
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/data_output_tseries.f90

    r392 r1036  
    11 SUBROUTINE data_output_tseries
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/diffusion_e.f90

    r1017 r1036  
    11 MODULE diffusion_e_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/diffusion_s.f90

    r1017 r1036  
    11 MODULE diffusion_s_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/diffusion_u.f90

    r1017 r1036  
    11 MODULE diffusion_u_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/diffusion_v.f90

    r1017 r1036  
    11 MODULE diffusion_v_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/diffusion_w.f90

    r1017 r1036  
    11 MODULE diffusion_w_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/diffusivities.f90

    r1017 r1036  
    11 SUBROUTINE diffusivities( var, var_reference )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/disturb_field.f90

    r668 r1036  
    11 SUBROUTINE disturb_field( nzb_uv_inner, dist1, field )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/disturb_heatflux.f90

    r556 r1036  
    11 SUBROUTINE disturb_heatflux
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/eqn_state_seawater.f90

    r484 r1036  
    11 MODULE eqn_state_seawater_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/exchange_horiz.f90

    r842 r1036  
    11 SUBROUTINE exchange_horiz( ar, nbgp_local)
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/exchange_horiz_2d.f90

    r842 r1036  
    11 SUBROUTINE exchange_horiz_2d( ar )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/fft_xy.f90

    r392 r1036  
    11 MODULE fft_xy
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/flow_statistics.f90

    r1008 r1036  
    11 SUBROUTINE flow_statistics
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/global_min_max.f90

    r867 r1036  
    22                            value_ijk, value1, value1_ijk )
    33
    4 !------------------------------------------------------------------------------!
     4!--------------------------------------------------------------------------------!
     5! This file is part of PALM.
     6!
     7! PALM is free software: you can redistribute it and/or modify it under the terms
     8! of the GNU General Public License as published by the Free Software Foundation,
     9! either version 3 of the License, or (at your option) any later version.
     10!
     11! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     12! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     13! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     14!
     15! You should have received a copy of the GNU General Public License along with
     16! PALM. If not, see <http://www.gnu.org/licenses/>.
     17!
     18! Copyright 1997-2012  Leibniz University Hannover
     19!--------------------------------------------------------------------------------!
     20!
    521! Current revisions:
    622! ------------------
  • palm/trunk/SOURCE/header.f90

    r1035 r1036  
    11 SUBROUTINE header
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/impact_of_latent_heat.f90

    r484 r1036  
    11 MODULE impact_of_latent_heat_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/inflow_turbulence.f90

    r710 r1036  
    11 SUBROUTINE inflow_turbulence
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_1d_model.f90

    r1017 r1036  
    11 SUBROUTINE init_1d_model
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_3d_model.f90

    r1033 r1036  
    44 SUBROUTINE init_3d_model
    55
    6 !------------------------------------------------------------------------------!
     6!--------------------------------------------------------------------------------!
     7! This file is part of PALM.
     8!
     9! PALM is free software: you can redistribute it and/or modify it under the terms
     10! of the GNU General Public License as published by the Free Software Foundation,
     11! either version 3 of the License, or (at your option) any later version.
     12!
     13! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     14! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     15! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     16!
     17! You should have received a copy of the GNU General Public License along with
     18! PALM. If not, see <http://www.gnu.org/licenses/>.
     19!
     20! Copyright 1997-2012  Leibniz University Hannover
     21!--------------------------------------------------------------------------------!
     22!
    723! Current revisions:
    824! ------------------
  • palm/trunk/SOURCE/init_advec.f90

    r1004 r1036  
    11 SUBROUTINE init_advec
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_cloud_physics.f90

    r826 r1036  
    11 SUBROUTINE init_cloud_physics
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_coupling.f90

    r710 r1036  
    11  SUBROUTINE init_coupling
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_dvrp.f90

    r392 r1036  
    11  SUBROUTINE init_dvrp
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_grid.f90

    r1017 r1036  
    11 SUBROUTINE init_grid
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_masks.f90

    r1035 r1036  
    11 SUBROUTINE init_masks
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_ocean.f90

    r484 r1036  
    11 SUBROUTINE init_ocean
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_pegrid.f90

    r1004 r1036  
    11 SUBROUTINE init_pegrid
    2 !------------------------------------------------------------------------------!
     2
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    320! Current revisions:
    421! -----------------
  • palm/trunk/SOURCE/init_pt_anomaly.f90

    r863 r1036  
    11 SUBROUTINE init_pt_anomaly
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_rankine.f90

    r668 r1036  
    11 SUBROUTINE init_rankine
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/init_slope.f90

    r668 r1036  
    11 SUBROUTINE init_slope
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/interaction_droplets_ptq.f90

    r800 r1036  
    11 MODULE interaction_droplets_ptq_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/local_flush.f90

    r484 r1036  
    11 SUBROUTINE local_flush( file_id )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/local_getenv.f90

    r484 r1036  
    11 SUBROUTINE local_getenv( var, ivar, value, ivalue )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/local_stop.f90

    r810 r1036  
    11 SUBROUTINE local_stop
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/local_system.f90

    r484 r1036  
    11 SUBROUTINE local_system( command )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/local_tremain.f90

    r484 r1036  
    11 SUBROUTINE local_tremain( remaining_time )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/local_tremain_ini.f90

    r484 r1036  
    11 SUBROUTINE local_tremain_ini
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/lpm.f90

    r852 r1036  
    11 SUBROUTINE lpm
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_advec.f90

    r850 r1036  
    11 SUBROUTINE lpm_advec
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_boundary_conds.f90

    r850 r1036  
    11 SUBROUTINE lpm_boundary_conds( range )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/lpm_calc_liquid_water_content.f90

    r850 r1036  
    11 SUBROUTINE lpm_calc_liquid_water_content
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_collision_kernels.f90

    r1008 r1036  
    11 MODULE lpm_collision_kernels_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/lpm_data_output_particles.f90

    r850 r1036  
    11 SUBROUTINE lpm_data_output_particles
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_droplet_collision.f90

    r850 r1036  
    11 SUBROUTINE lpm_droplet_collision
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_droplet_condensation.f90

    r850 r1036  
    11 SUBROUTINE lpm_droplet_condensation
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_exchange_horiz.f90

    r852 r1036  
    11 SUBROUTINE lpm_exchange_horiz
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_extend_particle_array.f90

    r850 r1036  
    11 SUBROUTINE lpm_extend_particle_array( number_of_new_particles )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_extend_tail_array.f90

    r850 r1036  
    11 SUBROUTINE lpm_extend_tail_array( number_of_new_tails )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_extend_tails.f90

    r850 r1036  
    11 SUBROUTINE lpm_extend_tails
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_init.f90

    r850 r1036  
    11 SUBROUTINE lpm_init
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/lpm_init_sgs_tke.f90

    r850 r1036  
    11 SUBROUTINE lpm_init_sgs_tke
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_pack_arrays.f90

    r850 r1036  
    11 SUBROUTINE lpm_pack_arrays
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_read_restart_file.f90

    r850 r1036  
    11 SUBROUTINE lpm_read_restart_file
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_release_set.f90

    r850 r1036  
    11 SUBROUTINE lpm_release_set
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_set_attributes.f90

    r850 r1036  
    11 SUBROUTINE lpm_set_attributes
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/lpm_sort_arrays.f90

    r850 r1036  
    11 SUBROUTINE lpm_sort_arrays
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_write_exchange_statistics.f90

    r850 r1036  
    11 SUBROUTINE lpm_write_exchange_statistics
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/lpm_write_restart_file.f90

    r850 r1036  
    11 SUBROUTINE lpm_write_restart_file
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/message.f90

    r747 r1036  
    22                     message_level, output_on_pe, file_id, flush )
    33
    4 !------------------------------------------------------------------------------!
     4!--------------------------------------------------------------------------------!
     5! This file is part of PALM.
     6!
     7! PALM is free software: you can redistribute it and/or modify it under the terms
     8! of the GNU General Public License as published by the Free Software Foundation,
     9! either version 3 of the License, or (at your option) any later version.
     10!
     11! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     12! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     13! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     14!
     15! You should have received a copy of the GNU General Public License along with
     16! PALM. If not, see <http://www.gnu.org/licenses/>.
     17!
     18! Copyright 1997-2012  Leibniz University Hannover
     19!--------------------------------------------------------------------------------!
     20!
    521! Current revisions:
    622! -----------------
  • palm/trunk/SOURCE/modules.f90

    r1035 r1036  
    11 MODULE advection
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/netcdf.f90

    r1035 r1036  
    44 SUBROUTINE define_netcdf_header( callmode, extend, av )
    55
    6 !------------------------------------------------------------------------------!
     6!--------------------------------------------------------------------------------!
     7! This file is part of PALM.
     8!
     9! PALM is free software: you can redistribute it and/or modify it under the terms
     10! of the GNU General Public License as published by the Free Software Foundation,
     11! either version 3 of the License, or (at your option) any later version.
     12!
     13! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     14! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     15! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     16!
     17! You should have received a copy of the GNU General Public License along with
     18! PALM. If not, see <http://www.gnu.org/licenses/>.
     19!
     20! Copyright 1997-2012  Leibniz University Hannover
     21!--------------------------------------------------------------------------------!
     22!
    723! Current revisions:
    824! ------------------
  • palm/trunk/SOURCE/package_parin.f90

    r829 r1036  
    11 SUBROUTINE package_parin
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/palm.f90

    r1017 r1036  
    11 PROGRAM palm
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
     
    94110#endif
    95111
    96     version = 'PALM 3.8a'
     112    version = 'PALM 3.9'
    97113
    98114#if defined( __parallel )
  • palm/trunk/SOURCE/parin.f90

    r1017 r1036  
    11 SUBROUTINE parin
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/plant_canopy_model.f90

    r392 r1036  
    11 MODULE plant_canopy_model_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/poisfft.f90

    r1014 r1036  
    11 MODULE poisfft_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/poisfft_hybrid.f90

    r1014 r1036  
    11 MODULE poisfft_hybrid_mod
    22
    3 !------------------------------------------------------------------------------
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/poismg.f90

    r997 r1036  
    11 SUBROUTINE poismg( r )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Attention: Loop unrolling and cache optimization in SOR-Red/Black method
    521!            still does not give the expected speedup! Further work required.
  • palm/trunk/SOURCE/prandtl_fluxes.f90

    r1017 r1036  
    11 SUBROUTINE prandtl_fluxes
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/pres.f90

    r1004 r1036  
    11 SUBROUTINE pres
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/print_1d.f90

    r484 r1036  
    11 SUBROUTINE print_1d
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/production_e.f90

    r1017 r1036  
    11 MODULE production_e_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/prognostic_equations.f90

    r1020 r1036  
    11 MODULE prognostic_equations_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/random_function.f90

    r484 r1036  
    11 MODULE random_function_mod
    2 !------------------------------------------------------------------------------!
     2
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    320! Current revisions:
    421! -----------------
  • palm/trunk/SOURCE/random_gauss.f90

    r484 r1036  
    11 FUNCTION random_gauss( idum, upper_limit )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/read_3d_binary.f90

    r1002 r1036  
    11 SUBROUTINE read_3d_binary
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/read_var_list.f90

    r1017 r1036  
    11 SUBROUTINE read_var_list
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/run_control.f90

    r1002 r1036  
    11 SUBROUTINE run_control
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/set_slicer_attributes_dvrp.f90

    r484 r1036  
    11 SUBROUTINE set_slicer_attributes_dvrp( n_slicer )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/sor.f90

    r708 r1036  
    11 SUBROUTINE sor( d, ddzu, ddzw, p )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/subsidence.f90

    r672 r1036  
    11 MODULE subsidence_mod
    22
    3 !-----------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/sum_up_3d_data.f90

    r1008 r1036  
    11 SUBROUTINE sum_up_3d_data
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/surface_coupler.f90

    r881 r1036  
    11 SUBROUTINE surface_coupler
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/swap_timelevel.f90

    r1033 r1036  
    11 SUBROUTINE swap_timelevel
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/time_integration.f90

    r1020 r1036  
    11 SUBROUTINE time_integration
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/time_to_string.f90

    r484 r1036  
    11 FUNCTION time_to_string( time )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/timestep.f90

    r1002 r1036  
    11 SUBROUTINE timestep
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/timestep_scheme_steering.f90

    r1002 r1036  
    11 SUBROUTINE timestep_scheme_steering
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/transpose.f90

    r1004 r1036  
    11 SUBROUTINE transpose_xy( f_in, work, f_out )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_3d_data_averaging.f90

    r667 r1036  
    11 SUBROUTINE user_3d_data_averaging( mode, variable )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_actions.f90

    r668 r1036  
    11 MODULE user_actions_mod
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_additional_routines.f90

    r484 r1036  
    11 SUBROUTINE user_dummy
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_check_data_output.f90

    r484 r1036  
    11 SUBROUTINE user_check_data_output( variable, unit )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_check_data_output_pr.f90

    r559 r1036  
    11 SUBROUTINE user_check_data_output_pr( variable, var_count, unit )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_check_parameters.f90

    r484 r1036  
    11 SUBROUTINE user_check_parameters
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_data_output_2d.f90

    r668 r1036  
    11 SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_data_output_3d.f90

    r668 r1036  
    11 SUBROUTINE user_data_output_3d( av, variable, found, local_pf, nz_do )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_data_output_dvrp.f90

    r392 r1036  
    11 SUBROUTINE user_data_output_dvrp( output_variable, local_pf )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_data_output_mask.f90

    r410 r1036  
    11 SUBROUTINE user_data_output_mask( av, variable, found, local_pf )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! ------------------
  • palm/trunk/SOURCE/user_define_netcdf_grid.f90

    r484 r1036  
    11 SUBROUTINE user_define_netcdf_grid( variable, found, grid_x, grid_y, grid_z )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_dvrp_coltab.f90

    r392 r1036  
    11 SUBROUTINE user_dvrp_coltab( mode, variable )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_header.f90

    r484 r1036  
    11 SUBROUTINE user_header( io )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_init.f90

    r668 r1036  
    11 SUBROUTINE user_init
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_init_3d_model.f90

    r484 r1036  
    11 SUBROUTINE user_init_3d_model
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_init_grid.f90

    r392 r1036  
    11 SUBROUTINE user_init_grid( gls, nzb_local )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_init_plant_canopy.f90

    r668 r1036  
    11 SUBROUTINE user_init_plant_canopy
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_last_actions.f90

    r559 r1036  
    11 SUBROUTINE user_last_actions
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_lpm_advec.f90

    r850 r1036  
    11 SUBROUTINE user_lpm_advec
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_lpm_init.f90

    r850 r1036  
    11 SUBROUTINE user_lpm_init
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_lpm_set_attributes.f90

    r850 r1036  
    11 SUBROUTINE user_lpm_set_attributes
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_module.f90

    r484 r1036  
    11 MODULE user
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_parin.f90

    r932 r1036  
    11 SUBROUTINE user_parin
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_read_restart_data.f90

    r703 r1036  
    44                                    tmp_2d, tmp_3d )
    55
    6 !------------------------------------------------------------------------------!
     6!--------------------------------------------------------------------------------!
     7! This file is part of PALM.
     8!
     9! PALM is free software: you can redistribute it and/or modify it under the terms
     10! of the GNU General Public License as published by the Free Software Foundation,
     11! either version 3 of the License, or (at your option) any later version.
     12!
     13! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     14! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     15! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     16!
     17! You should have received a copy of the GNU General Public License along with
     18! PALM. If not, see <http://www.gnu.org/licenses/>.
     19!
     20! Copyright 1997-2012  Leibniz University Hannover
     21!--------------------------------------------------------------------------------!
     22!
    723! Current revisions:
    824! -----------------
  • palm/trunk/SOURCE/user_spectra.f90

    r392 r1036  
    11 SUBROUTINE user_spectra( mode, m, pr )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/user_statistics.f90

    r679 r1036  
    11 SUBROUTINE user_statistics( mode, sr, tn )
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/wall_fluxes.f90

    r1017 r1036  
    11 MODULE wall_fluxes_mod
    2 !------------------------------------------------------------------------------!
     2
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    320! Current revisions:
    421! -----------------
  • palm/trunk/SOURCE/write_3d_binary.f90

    r1002 r1036  
    11 SUBROUTINE write_3d_binary
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
  • palm/trunk/SOURCE/write_compressed.f90

    r668 r1036  
    22                              nys, nzb, nz_do3d, prec, nbgp )
    33
    4 !------------------------------------------------------------------------------!
     4!--------------------------------------------------------------------------------!
     5! This file is part of PALM.
     6!
     7! PALM is free software: you can redistribute it and/or modify it under the terms
     8! of the GNU General Public License as published by the Free Software Foundation,
     9! either version 3 of the License, or (at your option) any later version.
     10!
     11! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     12! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     13! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     14!
     15! You should have received a copy of the GNU General Public License along with
     16! PALM. If not, see <http://www.gnu.org/licenses/>.
     17!
     18! Copyright 1997-2012  Leibniz University Hannover
     19!--------------------------------------------------------------------------------!
     20!
    521! Current revisions:
    622! -----------------
  • palm/trunk/SOURCE/write_var_list.f90

    r1017 r1036  
    11 SUBROUTINE write_var_list
    22
    3 !------------------------------------------------------------------------------!
     3!--------------------------------------------------------------------------------!
     4! This file is part of PALM.
     5!
     6! PALM is free software: you can redistribute it and/or modify it under the terms
     7! of the GNU General Public License as published by the Free Software Foundation,
     8! either version 3 of the License, or (at your option) any later version.
     9!
     10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
     11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
     12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     13!
     14! You should have received a copy of the GNU General Public License along with
     15! PALM. If not, see <http://www.gnu.org/licenses/>.
     16!
     17! Copyright 1997-2012  Leibniz University Hannover
     18!--------------------------------------------------------------------------------!
     19!
    420! Current revisions:
    521! -----------------
Note: See TracChangeset for help on using the changeset viewer.