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

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

@@ -45 +45 @@
   ijb=ij_begin
   ije=ij_end
-  if (pole_nord) ijb=ij_begin+iip1
+  IF (pole_nord) ijb=ij_begin+iip1
   IF(pole_sud)  ije=ij_end-iip1
 
@@ -68 +68 @@
   ! ....  calcul  aux poles  .....
   !
-    if (pole_nord) THEN
+    IF (pole_nord) THEN
       DO  ij  = 1,iim
        aiy1(ij) =    cuvsurcv(    ij       ) * y(     ij     , l )
@@ -81 +81 @@
     endif
 
-    if (pole_sud) THEN
+    IF (pole_sud) THEN
       DO  ij  = 1,iim
        aiy2(ij) =    cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
@@ -99 +99 @@
     jjb=jj_begin
     jje=jj_end
-    if (pole_sud) jje=jj_end-1
+    IF (pole_sud) jje=jj_end-1
 
     CALL filtreg_p( div,jjb_u,jje_u,jjb,jje, jjp1, &