Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/exner_milieu_loc_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/dyn3dmem/exner_milieu_loc_m.F90 (modified) (5 diffs)

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

@@ -56 +56 @@
 
     ! 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.
@@ -75 +75 @@
 
     ! Specific behaviour for Shallow Water (1 vertical layer) case:
-    if (llm==1) THEN
+    IF (llm==1) THEN
        ! Compute pks(:),pk(:),pkf(:)
        ijb=ij_begin
@@ -83 +83 @@
           pks(ij) = (cpp/preff) * ps(ij)
           pk(ij,1) = .5*pks(ij)
-          if (present(pkf)) pkf(ij,1)=pk(ij,1)
+          IF (present(pkf)) pkf(ij,1)=pk(ij,1)
        ENDDO
        !$OMP ENDDO
 
        !$OMP BARRIER
-       if (present(pkf)) THEN
+       IF (present(pkf)) THEN
           jjb=jj_begin
           jje=jj_end
@@ -97 +97 @@
        ! our work is done, exit routine
        RETURN
-    endif ! of if (llm.eq.1)
+    endif ! of if (llm.EQ.1)
 
     ! General case:
@@ -140 +140 @@
     !$OMP ENDDO NOWAIT        
 
-    if (present(pkf)) THEN
+    IF (present(pkf)) THEN
        !    calcul de pkf