Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/groupe_loc.f90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/groupe_loc.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/groupe_loc.f90

@@ -54 +54 @@
 
   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-  do l = 1, llm
+  DO l = 1, llm
     zconvmm(:, jjb:jje, l) = zconvm(:, jjb:jje, l)
   enddo
@@ -66 +66 @@
   IF (pole_sud)  jje = jj_end - 1
   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-  do l = 1, llm
+  DO l = 1, llm
     pbarvm(:, jjb:jje, l) = pbarv(:, jjb:jje, l)
   enddo
@@ -86 +86 @@
 
   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-  do l = 1, llm
-    do j = jjb, jje
+  DO l = 1, llm
+    DO j = jjb, jje
       uu = pbaru(iim, j, l)
-      do i = 1, iim
+      DO i = 1, iim
         uu = uu + pbarvm(i, j, l) - pbarvm(i, j - 1, l) - zconvmm(i, j, l)
         pbarum(i, j, l) = uu
@@ -106 +106 @@
   !$OMP BARRIER
   !$OMP MASTER
-  do  l = llm - 1, 1, -1
-    do j = jjb, jje
-      do i = 1, iip1
+  DO  l = llm - 1, 1, -1
+    DO j = jjb, jje
+      DO i = 1, iip1
         zconvmm(i, j, l) = zconvmm(i, j, l) + zconvmm(i, j, l + 1)
       enddo
@@ -116 +116 @@
   IF (.NOT. pole_sud) THEN
     zconvmm(:, jj_end + 1, :) = 0
-    !ym wm(:,jj_end+1,:)=0
+    !ym    wm(:,jj_end+1,:)=0
   ENDIF