Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (3 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/phylmd/dyn1d/replay1d.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90

@@ -5 +5 @@
 USE comvert_mod, ONLY: presnivs
 USE comvert_mod, ONLY:  preff, pa
-USE ioipsl, only: getin
+USE ioipsl, ONLY: getin
 
 
@@ -13 +13 @@
       INCLUDE "dimensions.h"
 
-real :: airefi
-real :: zcufi    = 1.
-real :: zcvfi    = 1.
-real :: rlat_rad(1),rlon_rad(1)
+REAL :: airefi
+REAL :: zcufi    = 1.
+REAL :: zcvfi    = 1.
+REAL :: rlat_rad(1),rlon_rad(1)
 
 integer ntime
@@ -103 +103 @@
 !         ierr    = severity of situation ( = 0 normal )
  
-      character(len=*) modname
+      CHARACTER(LEN=*) modname
       integer ierr
-      character(len=*) message
+      CHARACTER(LEN=*) message
  
-      write(*,*) 'in abort_gcm'
+      WRITE(*,*) 'in abort_gcm'
       CALL histclo
-      write(*,*) 'out of histclo'
-      write(*,*) 'Stopping in ', modname
-      write(*,*) 'Reason = ',message
+      WRITE(*,*) 'out of histclo'
+      WRITE(*,*) 'Stopping in ', modname
+      WRITE(*,*) 'Reason = ',message
       CALL getin_dump
 
-      if (ierr == 0) then
-        write(*,*) 'Everything is cool'
+      if (ierr == 0) THEN
+        WRITE(*,*) 'Everything is cool'
       else
-        write(*,*) 'Houston, we have a problem ', ierr
+        WRITE(*,*) 'Houston, we have a problem ', ierr
       endif
       STOP