Changeset 3083 for trunk/LMDZ.TITAN/libf/muphytitan/mm_mprec.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/mm_mprec.F90 (modified) (6 diffs)

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

@@ -1 @@
-! Copyright 2013-2015,2017 Université de Reims Champagne-Ardenne 
+! Copyright 2013-2015,2017,2022 Université de Reims Champagne-Ardenne
 ! Contributor: J. Burgalat (GSMA, URCA)
 ! email of the author : jeremie.burgalat@univ-reims.fr
-! 
+!
 ! This software is a computer program whose purpose is to compute
 ! microphysics processes using a two-moments scheme.
-! 
+!
 ! This library is governed by the CeCILL-B license under French law and
-! abiding by the rules of distribution of free software.  You can  use, 
+! 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". 
-! 
+! "http://www.cecill.info".
+!
 ! 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. 
-! 
+! liability.
+!
 ! In this respect, the user's attention is drawn to the risks associated
 ! with loading,  using,  modifying and/or developing or reproducing the
@@ -25 +25 @@
 ! 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. 
-! 
+! 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.
@@ -35 +35 @@
 !! summary: Library floating point precision module.
 !! author: J. Burgalat
-!! date: 2013-2015,2017
+!! date: 2013-2015,2017,2022
 
 #ifdef HAVE_CONFIG_H
@@ -42 +42 @@
 
 #ifndef PREC
-#define PREC 64 
+#define PREC 64
 #elif (PREC != 32 && PREC != 64 && PREC != 80)
 #undef PREC
@@ -52 +52 @@
   !!
   !! This module only defines a single variable [[mm_mprec(module):mm_wp(variable)]] which sets
-  !! the kind of floating point value used in all other part of the library (REAL(kind=mm_wp) 
+  !! the kind of floating point value used in all other part of the library (REAL(kind=mm_wp)
   !! declaration statement).
   IMPLICIT NONE
@@ -58 +58 @@
 #if (PREC == 32)
   !> Size of floating point variables in the library (single).
-  INTEGER, PUBLIC, PARAMETER :: mm_wp = SELECTED_REAL_KIND(p=6)  ! 32 bits
+  INTEGER, PUBLIC, PARAMETER          :: mm_wp = SELECTED_REAL_KIND(p=6)  ! 32 bits
+  CHARACTER(len=è), PUBLIC, PARAMETER :: mm_wp_s = "32 bits"
 #elif (PREC == 64)
   !> Size of floating point variables in the library (double).
-  INTEGER, PUBLIC, PARAMETER :: mm_wp = SELECTED_REAL_KIND(p=15) ! 64 bits 
+  INTEGER, PUBLIC, PARAMETER          :: mm_wp = SELECTED_REAL_KIND(p=15) ! 64 bits
+  CHARACTER(len=7), PUBLIC, PARAMETER :: mm_wp_s = "64 bits"
 #elif (PREC == 80)
   !> Size of floating point variables in the library (extended-double).
-  INTEGER, PUBLIC, PARAMETER :: mm_wp = SELECTED_REAL_KIND(p=18) ! 80 bits
+  INTEGER, PUBLIC, PARAMETER          :: mm_wp = SELECTED_REAL_KIND(p=18) ! 80 bits
+  CHARACTER(len=7), PUBLIC, PARAMETER :: mm_wp_s = "80 bits"
 #endif
 END MODULE MM_MPREC