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

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

@@ -96 +96 @@
 !$OMP END DO NOWAIT
 
-  if (pole_nord) THEN
+  IF (pole_nord) THEN
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
     DO  k    = 1, llm
@@ -109 +109 @@
    ENDDO
 !$OMP END DO NOWAIT
-  endif
-
-  if (pole_sud) THEN
+  ENDIF
+
+  IF (pole_sud) THEN
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
     DO  k    = 1, llm
@@ -124 +124 @@
    ENDDO
 !$OMP END DO NOWAIT
-  endif
+  ENDIF
   !
 
   ijb=ij_begin
   ije=ij_end
-  if (pole_nord) ijb=ij_begin+iip1
-  if (pole_sud)  ije=ij_end-iip1
+  IF (pole_nord) ijb=ij_begin+iip1
+  IF (pole_sud)  ije=ij_end-iip1
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -140 +140 @@
 !$OMP END DO NOWAIT
 
-  if (pole_nord) ijb=ij_begin
+  IF (pole_nord) ijb=ij_begin
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -151 +151 @@
 
   !
-  if (pole_sud)  ije=ij_end
+  IF (pole_sud)  ije=ij_end
 !$OMP MASTER
   DO j = ijb,ije
@@ -158 +158 @@
 !$OMP END MASTER
 
-  if (planet_type=="earth") THEN
+  IF (planet_type=="earth") THEN
   ! earth case, special treatment for first 2 tracers (water)
   DO iq = 1, 2
@@ -193 +193 @@
 !$OMP END DO NOWAIT
    ENDDO
-  endif ! of if (planet_type=="earth")
+  ENDIF ! of if (planet_type=="earth")
 
 !$OMP MASTER
-  if (pole_nord) THEN
+  IF (pole_nord) THEN
     DO  ij   = 1, iim
       xpn(ij) = aire(   ij   ) * pps(  ij     )
@@ -207 +207 @@
     ENDDO
 
-  endif
-
-  if (pole_sud) THEN
+  ENDIF
+
+  IF (pole_sud) THEN
     DO  ij   = 1, iim
       xps(ij) = aire(ij+ip1jm) * pps(ij+ip1jm )
@@ -220 +220 @@
     ENDDO
 
-  endif
+  ENDIF
 !$OMP END MASTER
 
-  if (pole_nord) THEN
+  IF (pole_nord) THEN
     DO iq = 1, nqtot
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -238 +238 @@
 !$OMP END DO NOWAIT     
     ENDDO
-  endif
-
-  if (pole_sud) THEN
+  ENDIF
+
+  IF (pole_sud) THEN
     DO iq = 1, nqtot
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -255 +255 @@
 !$OMP END DO NOWAIT     
     ENDDO
-  endif
+  ENDIF