Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phy_common

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

Location:

LMDZ6/branches/Amaury_dev/libf/phy_common

Files:

• lmdz_abort_physic.F90 (modified) (2 diffs)
• lmdz_phys_omp_data.F90 (modified) (1 diff)
• lmdz_print_control.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_abort_physic.F90

@@ -18 +18 @@
     !         ierr    = severity of situation ( = 0 normal )
 
-    character(len = *), intent(in) :: modname
+    CHARACTER(LEN = *), intent(in) :: modname
     integer ierr, ierror_mpi
-    character(len = *), intent(in) :: message
+    CHARACTER(LEN = *), intent(in) :: message
 
-    write(lunout, *) 'in abort_physic'
+    WRITE(lunout, *) 'in abort_physic'
     !$OMP MASTER
     CALL histclo
     CALL restclo
-    if (mpi_rank == 0) then
+    if (mpi_rank == 0) THEN
       CALL getin_dump
     endif
     !$OMP END MASTER
 
-    write(lunout, *) 'Stopping in ', modname
-    write(lunout, *) 'Reason = ', message
-    if (ierr == 0) then
-      write(lunout, *) 'Everything is cool'
-      if (using_mpi) then
+    WRITE(lunout, *) 'Stopping in ', modname
+    WRITE(lunout, *) 'Reason = ', message
+    if (ierr == 0) THEN
+      WRITE(lunout, *) 'Everything is cool'
+      if (using_mpi) THEN
         !$OMP CRITICAL (MPI_ABORT_PHYSIC)
         CALL MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
@@ -43 +43 @@
       endif
     else
-      write(lunout, *) 'Houston, we have a problem, ierr = ', ierr
-      if (using_mpi) then
+      WRITE(lunout, *) 'Houston, we have a problem, ierr = ', ierr
+      if (using_mpi) THEN
         !$OMP CRITICAL (MPI_ABORT_PHYSIC)
         CALL MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_omp_data.F90

@@ -88 +88 @@
 !$OMP BARRIER
 
-   if ((is_north_pole_dyn) .AND. (omp_rank == 0 )) then
+   if ((is_north_pole_dyn) .AND. (omp_rank == 0 )) THEN
       is_north_pole_phy = .TRUE.
     else
       is_north_pole_phy = .FALSE.
     endif
-    if ((is_south_pole_dyn) .AND. (omp_rank == omp_size-1)) then
+    if ((is_south_pole_dyn) .AND. (omp_rank == omp_size-1)) THEN
       is_south_pole_phy = .TRUE.
     else

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_print_control.f90

@@ -43 +43 @@
     INTEGER :: alarm_file = 15 ! in case we want/need to print out the special alarms in a separate file
 
-    IF (alert_first_call) then
+    IF (alert_first_call) THEN
       IF (alarm_file /= lunout) THEN
         OPEN(unit = alarm_file, file = "ALERTES.txt")
@@ -50 +50 @@
 
     alarm_couleur = alarm_color(niv_alerte)
-    IF (niv_alerte < 0 .OR. niv_alerte > 3) then
+    IF (niv_alerte < 0 .OR. niv_alerte > 3) THEN
       message = 'NIVEAU ALERTE INVALIDE  ' // message
       alarm_couleur = 'NOIRE  '