Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/exner_hyb_loc_m.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 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/dyn3dmem/exner_hyb_loc_m.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/exner_hyb_loc_m.F90

@@ -58 +58 @@
     logical, save :: firstcall = .TRUE.
     !$OMP THREADPRIVATE(firstcall)
-    character(len = *), parameter :: modname = "exner_hyb_loc"
+    CHARACTER(LEN = *), parameter :: modname = "exner_hyb_loc"
 
     !$OMP BARRIER
 
     ! 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)
@@ -82 +82 @@
 
     ! Specific behaviour for Shallow Water (1 vertical layer) case:
-    if (llm==1) then
-
+    if (llm==1) THEN
       ! Compute pks(:),pk(:),pkf(:)
       ijb = ij_begin
@@ -96 +95 @@
 
       !$OMP BARRIER
-      if (present(pkf)) then
+      if (present(pkf)) THEN
         jjb = jj_begin
         jje = jj_end
@@ -104 +103 @@
 
       ! our work is done, exit routine
-      return
+      RETURN
     endif ! of if (llm.eq.1)
 
@@ -170 +169 @@
     ENDDO
 
-    if (present(pkf)) then
+    if (present(pkf)) THEN
       !    calcul de pkf