Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/array_lib.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (5 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/array_lib.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/array_lib.F90

@@ -2 +2 @@
 ! Copyright (c) 2015, Regents of the University of Colorado
 ! All rights reserved.
-!
+
 ! Redistribution and use in source and binary forms, with or without modification, are 
 ! permitted provided that the following conditions are met:
-!
+
 ! 1. Redistributions of source code must retain the above copyright notice, this list of 
 !    conditions and the following disclaimer.
-!
+
 ! 2. Redistributions in binary form must reproduce the above copyright notice, this list
 !    of conditions and the following disclaimer in the documentation and/or other 
 !    materials provided with the distribution.
-!
+
 ! 3. Neither the name of the copyright holder nor the names of its contributors may be 
 !    used to endorse or promote products derived from this software without specific prior
 !    written permission.
-!
+
 ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY 
 ! EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 
@@ -26 +26 @@
 ! LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 ! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-!
+
 ! History:
 ! 10/16/03  John Haynes   - Original version (haynes@atmos.colostate.edu)
@@ -47 +47 @@
     !   Finds the index of an array that is closest to a value, plus the
     !   difference between the value found and the value specified
-    !
+
     ! Inputs:
     !   [list]   an array of sequential values
@@ -53 +53 @@
     ! Optional input:
     !   [sort]   set to 1 if [list] is in unknown/non-sequential order
-    !
+
     ! Returns:
     !   index of [list] that is closest to [val]
-    !
+
     ! Optional output:
     !   [dist]   set to variable containing [list([result])] - [val]
-    !
+
     ! Requires:
     !   mrgrnk library
-    !
+
     ! ##########################################################################