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

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

@@ -36 +36 @@
   ijb=ij_begin-iip1
   ije=ij_end+iip1
-  if (pole_nord) ijb=ij_begin
-  if (pole_sud ) ije=ij_end
+  IF (pole_nord) ijb=ij_begin
+  IF (pole_sud ) ije=ij_end
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -47 +47 @@
   jjb=jj_begin-1
   jje=jj_end+1
-  if (pole_nord) jjb=jj_begin
-  if (pole_sud ) jje=jj_end
+  IF (pole_nord) jjb=jj_begin
+  IF (pole_sud ) jje=jj_end
 
   CALL filtreg_p( divgra,jjb_u,jje_u,jjb,jje,jjp1, &