Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/friction_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/friction_loc.f90 (modified) (11 diffs)

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

@@ -67 +67 @@
     IF (pole_sud) jje = jj_end
 
-    do j = jjb, jje
-      do i = 1, iip1
+    DO j = jjb, jje
+      DO i = 1, iip1
         u2(i, j) = ucov(i, j, 1) * ucov(i, j, 1) * unscu2(i, j)
       enddo
@@ -78 +78 @@
     IF (pole_sud) jje = jj_end - 1
 
-    do j = jjb, jje
-      do i = 1, iip1
+    DO j = jjb, jje
+      DO i = 1, iip1
         v2(i, j) = vcov(i, j, 1) * vcov(i, j, 1) * unscv2(i, j)
       enddo
@@ -90 +90 @@
     IF (pole_sud) jje = jj_end - 1
 
-    do j = jjb, jje
-      do i = 2, iip1
+    DO j = jjb, jje
+      DO i = 2, iip1
         modv(i, j) = sqrt(0.5 * (u2(i - 1, j) + u2(i, j) + v2(i, j - 1) + v2(i, j)))
       enddo
@@ -103 +103 @@
       vpoln = 0.
 
-      do i = 2, iip1
+      DO i = 2, iip1
         zco = cos(rlonv(i)) * (rlonu(i) - rlonu(i - 1))
         zsi = sin(rlonv(i)) * (rlonu(i) - rlonu(i - 1))
@@ -111 +111 @@
       enddo
       vpn = sqrt(upoln * upoln + vpoln * vpoln) / pi
-      do i = 1, iip1
+      DO i = 1, iip1
         ! modv(i,1)=vpn
         modv(i, 1) = modv(i, 2)
@@ -121 +121 @@
       upols = 0.
       vpols = 0.
-      do i = 2, iip1
+      DO i = 2, iip1
         zco = cos(rlonv(i)) * (rlonu(i) - rlonu(i - 1))
         zsi = sin(rlonv(i)) * (rlonu(i) - rlonu(i - 1))
@@ -129 +129 @@
       enddo
       vps = sqrt(upols * upols + vpols * vpols) / pi
-      do i = 1, iip1
+      DO i = 1, iip1
         ! modv(i,jjp1)=vps
         modv(i, jjp1) = modv(i, jjm)
@@ -143 +143 @@
     IF (pole_sud) jje = jj_end - 1
 
-    do j = jjb, jje
-      do i = 1, iim
+    DO j = jjb, jje
+      DO i = 1, iim
         ucov(i, j, 1) = ucov(i, j, 1) &
                 - cfric * pdt * 0.5 * (modv(i + 1, j) + modv(i, j)) * ucov(i, j, 1)
@@ -155 +155 @@
     IF (pole_sud) jje = jj_end - 1
 
-    do j = jjb, jje
-      do i = 1, iip1
+    DO j = jjb, jje
+      DO i = 1, iip1
         vcov(i, j, 1) = vcov(i, j, 1) &
                 - cfric * pdt * 0.5 * (modv(i, j + 1) + modv(i, j)) * vcov(i, j, 1)
@@ -173 +173 @@
 
     !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-    do l = 1, llm
+    DO l = 1, llm
       ucov(1:iip1, jjb:jje, l) = ucov(1:iip1, jjb:jje, l) * &
               (1. - pdt * kfrict(l))
@@ -185 +185 @@
 
     !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-    do l = 1, llm
+    DO l = 1, llm
       vcov(1:iip1, jjb:jje, l) = vcov(1:iip1, jjb:jje, l) * &
               (1. - pdt * kfrict(l))