Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/misc/write_field.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/misc/write_field.F90 (modified) (19 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/write_field.F90

@@ -12 +12 @@
   integer, dimension(MaxWriteField), save :: FieldVarId
   integer, dimension(MaxWriteField), save :: FieldIndex
-  character(len = 255), dimension(MaxWriteField) :: FieldName
+  CHARACTER(LEN = 255), dimension(MaxWriteField) :: FieldName
 
   integer, save :: NbField = 0
@@ -23 +23 @@
   function GetFieldIndex(name)
     IMPLICIT NONE
-    integer :: GetFieldindex
-    character(len = *) :: name
-
-    character(len = 255) :: TrueName
-    integer :: i
+    INTEGER :: GetFieldindex
+    CHARACTER(LEN = *) :: name
+
+    CHARACTER(LEN = 255) :: TrueName
+    INTEGER :: i
 
     TrueName = TRIM(ADJUSTL(name))
@@ -33 +33 @@
     GetFieldIndex = -1
     do i = 1, NbField
-      if (TrueName==FieldName(i)) then
+      if (TrueName==FieldName(i)) THEN
         GetFieldIndex = i
         exit
       endif
     enddo
-  end function GetFieldIndex
+  END FUNCTION GetFieldIndex
 
   subroutine WriteField3d(name, Field)
     IMPLICIT NONE
-    character(len = *) :: name
+    CHARACTER(LEN = *) :: name
     real, dimension(:, :, :) :: Field
     integer, dimension(3) :: Dim
@@ -49 +49 @@
     CALL WriteField_gen(name, Field, Dim(1), Dim(2), Dim(3))
 
-  end subroutine WriteField3d
+  END SUBROUTINE WriteField3d
 
   subroutine WriteField2d(name, Field)
     IMPLICIT NONE
-    character(len = *) :: name
+    CHARACTER(LEN = *) :: name
     real, dimension(:, :) :: Field
     integer, dimension(2) :: Dim
@@ -60 +60 @@
     CALL WriteField_gen(name, Field, Dim(1), Dim(2), 1)
 
-  end subroutine WriteField2d
+  END SUBROUTINE WriteField2d
 
   subroutine WriteField1d(name, Field)
     IMPLICIT NONE
-    character(len = *) :: name
+    CHARACTER(LEN = *) :: name
     real, dimension(:) :: Field
     integer, dimension(1) :: Dim
@@ -71 +71 @@
     CALL WriteField_gen(name, Field, Dim(1), 1, 1)
 
-  end subroutine WriteField1d
+  END SUBROUTINE WriteField1d
 
   subroutine WriteField_gen(name, Field, dimx, dimy, dimz)
     IMPLICIT NONE
-    character(len = *) :: name
-    integer :: dimx, dimy, dimz
+    CHARACTER(LEN = *) :: name
+    INTEGER :: dimx, dimy, dimz
     real, dimension(dimx, dimy, dimz) :: Field
     integer, dimension(dimx * dimy * dimz) :: ndex
-    integer :: status
-    integer :: index
-    integer :: start(4)
-    integer :: count(4)
+    INTEGER :: status
+    INTEGER :: index
+    INTEGER :: start(4)
+    INTEGER :: count(4)
 
     Index = GetFieldIndex(name)
-    if (Index==-1) then
+    if (Index==-1) THEN
       CALL CreateNewField(name, dimx, dimy, dimz)
       Index = GetFieldIndex(name)
@@ -105 +105 @@
     status = nf90_sync(FieldId(Index))
 
-  end subroutine WriteField_gen
+  END SUBROUTINE WriteField_gen
 
   subroutine CreateNewField(name, dimx, dimy, dimz)
     IMPLICIT NONE
-    character(len = *) :: name
-    integer :: dimx, dimy, dimz
-    integer :: TabDim(4)
-    integer :: status
+    CHARACTER(LEN = *) :: name
+    INTEGER :: dimx, dimy, dimz
+    INTEGER :: TabDim(4)
+    INTEGER :: status
 
     NbField = NbField + 1
@@ -126 +126 @@
     status = nf90_enddef(FieldId(NbField))
 
-  end subroutine CreateNewField
+  END SUBROUTINE CreateNewField
 
   subroutine write_field1D(name, Field)
@@ -132 +132 @@
 
     integer, parameter :: MaxDim = 1
-    character(len = *) :: name
+    CHARACTER(LEN = *) :: name
     real, dimension(:) :: Field
     real, dimension(:), allocatable :: New_Field
-    character(len = 20) :: str
+    CHARACTER(LEN = 20) :: str
     integer, dimension(MaxDim) :: Dim
-    integer :: i, nb
+    INTEGER :: i, nb
     integer, parameter :: id = 10
     integer, parameter :: NbCol = 4
-    integer :: ColumnSize
-    integer :: pos
-    character(len = 255) :: form
-    character(len = 255) :: MaxLen
+    INTEGER :: ColumnSize
+    INTEGER :: pos
+    CHARACTER(LEN = 255) :: form
+    CHARACTER(LEN = 255) :: MaxLen
 
     open(unit = id, file = name // '.field', form = 'formatted', status = 'replace')
@@ -155 +155 @@
       nb = nb + 1
 
-      if (MOD(nb, NbCol)==0) then
+      if (MOD(nb, NbCol)==0) THEN
         form = '(t' // trim(int2str(pos)) // ',i' // trim(MaxLen) // '," ---> ",g22.16,/)'
         Pos = 2
@@ -167 +167 @@
     close(id)
 
-  end subroutine write_field1D
+  END SUBROUTINE write_field1D
 
   subroutine write_field2D(name, Field)
@@ -173 +173 @@
 
     integer, parameter :: MaxDim = 2
-    character(len = *) :: name
+    CHARACTER(LEN = *) :: name
     real, dimension(:, :) :: Field
     real, dimension(:, :), allocatable :: New_Field
-    character(len = 20) :: str
+    CHARACTER(LEN = 20) :: str
     integer, dimension(MaxDim) :: Dim
-    integer :: i, j, nb
+    INTEGER :: i, j, nb
     integer, parameter :: id = 10
     integer, parameter :: NbCol = 4
-    integer :: ColumnSize
-    integer :: pos, offset
-    character(len = 255) :: form
-    character(len = 255) :: spacing
+    INTEGER :: ColumnSize
+    INTEGER :: pos, offset
+    CHARACTER(LEN = 255) :: form
+    CHARACTER(LEN = 255) :: spacing
 
     open(unit = id, file = name // '.field', form = 'formatted', status = 'replace')
@@ -201 +201 @@
         nb = nb + 1
 
-        if (MOD(nb, NbCol)==0) then
+        if (MOD(nb, NbCol)==0) THEN
           form = '(t' // trim(int2str(pos)) // &
                   ',"(' // trim(int2str(j)) // ','          &
@@ -218 +218 @@
         write (id, form, advance = 'no') Field(j, i)
       enddo
-      if (MOD(nb, NbCol)==0) then
+      if (MOD(nb, NbCol)==0) THEN
         write (id, spacing)
       else
@@ -226 +226 @@
     enddo
 
-  end subroutine write_field2D
+  END SUBROUTINE write_field2D
 
   subroutine write_field3D(name, Field)
@@ -232 +232 @@
 
     integer, parameter :: MaxDim = 3
-    character(len = *) :: name
+    CHARACTER(LEN = *) :: name
     real, dimension(:, :, :) :: Field
     real, dimension(:, :, :), allocatable :: New_Field
     integer, dimension(MaxDim) :: Dim
-    integer :: i, j, k, nb
+    INTEGER :: i, j, k, nb
     integer, parameter :: id = 10
     integer, parameter :: NbCol = 4
-    integer :: ColumnSize
-    integer :: pos, offset
-    character(len = 255) :: form
-    character(len = 255) :: spacing
+    INTEGER :: ColumnSize
+    INTEGER :: pos, offset
+    CHARACTER(LEN = 255) :: form
+    CHARACTER(LEN = 255) :: spacing
 
     open(unit = id, file = name // '.field', form = 'formatted', status = 'replace')
@@ -264 +264 @@
           nb = nb + 1
 
-          if (MOD(nb, NbCol)==0) then
+          if (MOD(nb, NbCol)==0) THEN
             form = '(t' // trim(int2str(pos)) // &
                     ',"(' // trim(int2str(k)) // ','          &
@@ -284 +284 @@
           write (id, form, advance = 'no') Field(k, j, i)
         enddo
-        if (MOD(nb, NbCol)==0) then
+        if (MOD(nb, NbCol)==0) THEN
           write (id, spacing)
         else
@@ -296 +296 @@
     close(id)
 
-  end subroutine write_field3D
+  END SUBROUTINE write_field3D
 
 end module write_field