Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_milieu_m.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/dyn3d_common/exner_milieu_m.F90 (modified) (5 diffs)

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

@@ -51 +51 @@
 
     logical,save :: firstcall=.TRUE.
-    character(len=*),parameter :: modname="exner_milieu"
+    CHARACTER(LEN=*),parameter :: modname="exner_milieu"
 
     ! 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)
@@ -71 +71 @@
 
     ! Specific behaviour for Shallow Water (1 vertical layer) case:
-    if (llm==1) then
-
+    if (llm==1) THEN
        ! Compute pks(:),pk(:),pkf(:)
 
@@ -80 +79 @@
        ENDDO
 
-       if (present(pkf)) then
+       if (present(pkf)) THEN
           pkf = pk
           CALL filtreg ( pkf, jmp1, llm, 2, 1, .TRUE., 1 ) 
@@ -86 +85 @@
 
        ! our work is done, exit routine
-       return
+       RETURN
     endif ! of if (llm.eq.1)
 
@@ -117 +116 @@
     ENDDO
 
-    if (present(pkf)) then
+    if (present(pkf)) THEN
        !    calcul de pkf
        pkf = pk