Changeset 3083 for trunk/LMDZ.TITAN/libf/muphytitan/cfgparse.F90

Timestamp:

Oct 12, 2023, 10:30:22 AM (15 months ago)

Author:

slebonnois

Message:

BBT : Update for the titan microphysics and cloud model

File:

• trunk/LMDZ.TITAN/libf/muphytitan/cfgparse.F90 (modified) (4 diffs)

trunk/LMDZ.TITAN/libf/muphytitan/cfgparse.F90

@@ -1 @@
-! Copyright Jérémie Burgalat (2010-2015,2017)
+! Copyright (c) (2013-2015,2017) Jeremie Burgalat (jeremie.burgalat@univ-reims.fr).
 !
-! jeremie.burgalat@univ-reims.fr
+! This file is part of SWIFT
 !
-! This software is a computer program whose purpose is to provide configuration
-! file and command line arguments parsing features to Fortran programs.
+! Permission is hereby granted, free of charge, to any person obtaining a copy of
+! this software and associated documentation files (the "Software"), to deal in
+! the Software without restriction, including without limitation the rights to
+! use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+! the Software, and to permit persons to whom the Software is furnished to do so,
+! subject to the following conditions:
 !
-! This software is governed by the CeCILL-B license under French law and
-! abiding by the rules of distribution of free software.  You can  use,
-! modify and/ or redistribute the software under the terms of the CeCILL-B
-! license as circulated by CEA, CNRS and INRIA at the following URL
-! "http://www.cecill.info".
+! The above copyright notice and this permission notice shall be included in all
+! copies or substantial portions of the Software.
 !
-! As a counterpart to the access to the source code and  rights to copy,
-! modify and redistribute granted by the license, users are provided only
-! with a limited warranty  and the software's author,  the holder of the
-! economic rights,  and the successive licensors  have only  limited
-! liability.
-!
-! In this respect, the user's attention is drawn to the risks associated
-! with loading,  using,  modifying and/or developing or reproducing the
-! software by the user in light of its specific status of free software,
-! that may mean  that it is complicated to manipulate,  and  that  also
-! therefore means  that it is reserved for developers  and  experienced
-! professionals having in-depth computer knowledge. Users are therefore
-! encouraged to load and test the software's suitability as regards their
-! requirements in conditions enabling the security of their systems and/or
-! data to be ensured and,  more generally, to use and operate it in the
-! same conditions as regards security.
-!
-! The fact that you are presently reading this means that you have had
-! knowledge of the CeCILL-B license and that you accept its terms.
+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+! FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+! COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+! IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+! CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 !! file: cfgparse.F90
 !! summary: Configuration file parser source file.
 !! author: J. Burgalat
-!! date: 2013-2015,2017
+!! date: 2013-2015,2017,2022
 
 #include "defined.h"
@@ -330 +318 @@
     oname = zsname//"/"//zpname
     IF (PRESENT(sname)) sname = zsname
-    IF (PRESENT(pname)) pname = zpname 
+    IF (PRESENT(pname)) pname = zpname
   END FUNCTION op_format
 
@@ -418 +406 @@
     !!
     !! Otherwise it is assumed to be the basename of the option.
-    !! 
+    !!
     !! A valid option (base) name is an alphanumeric sequence in lower-case that always begin by
     !! a letter.
@@ -479 +467 @@
     IF(.NOT.ALLOCATED(this%options)) RETURN
     IF (.NOT.PRESENT(section)) THEN
-      num = SIZE(this%options)  
+      num = SIZE(this%options)
     ELSE
       DO i=1, SIZE(this%options)