Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/diverg_p.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/diverg_p.f90 (modified) (3 diffs)

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

@@ -44 +44 @@
   ije=ij_end
   if (pole_nord) ijb=ij_begin+iip1
-  if(pole_sud)  ije=ij_end-iip1
+  IF(pole_sud)  ije=ij_end-iip1
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -65 +65 @@
   ! ....  calcul  aux poles  .....
   !
-    if (pole_nord) then
+    if (pole_nord) THEN
       DO  ij  = 1,iim
        aiy1(ij) =    cuvsurcv(    ij       ) * y(     ij     , l )
@@ -76 +76 @@
     endif
 
-   if (pole_sud) then
+   if (pole_sud) THEN
       DO  ij  = 1,iim
        aiy2(ij) =    cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )