Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90

@@ -45 +45 @@
     INTEGER  ngrid
     REAL p(ngrid,llmp1),pk(ngrid,llm)
-    real, optional:: pkf(ngrid,llm)
+    REAL, optional:: pkf(ngrid,llm)
     REAL ps(ngrid),pks(ngrid), alpha(ngrid,llm),beta(ngrid,llm)
 
@@ -57 +57 @@
 
     ! Sanity check
-    if (firstcall) THEN
+    IF (firstcall) THEN
        ! sanity checks for Shallow Water case (1 vertical layer)
-       if (llm==1) THEN
-          if (kappa/=1) THEN
+       IF (llm==1) THEN
+          IF (kappa/=1) THEN
              CALL abort_gcm(modname, &
                   "kappa!=1 , but running in Shallow Water mode!!",42)
           endif
-          if (cpp/=r) THEN
+          IF (cpp/=r) THEN
              CALL abort_gcm(modname, &
                   "cpp!=r , but running in Shallow Water mode!!",42)
           endif
-       endif ! of if (llm.eq.1)
+       endif ! of if (llm.EQ.1)
 
        firstcall=.FALSE.
@@ -74 +74 @@
 
     ! Specific behaviour for Shallow Water (1 vertical layer) case:
-    if (llm==1) THEN
+    IF (llm==1) THEN
        ! Compute pks(:),pk(:),pkf(:)
 
@@ -82 +82 @@
        ENDDO
 
-       if (present(pkf)) THEN
+       IF (present(pkf)) THEN
           pkf = pk
           CALL filtreg ( pkf, jmp1, llm, 2, 1, .TRUE., 1 ) 
@@ -89 +89 @@
        ! our work is done, exit routine
        RETURN
-    endif ! of if (llm.eq.1)
+    endif ! of if (llm.EQ.1)
 
     ! General case:
@@ -137 +137 @@
     ENDDO
 
-    if (present(pkf)) THEN
+    IF (present(pkf)) THEN
        !    calcul de pkf
        pkf = pk