Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/nxgraro2_loc.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 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/nxgraro2_loc.f90 (modified) (1 diff)

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

@@ -107 +107 @@
   jjb=jj_begin
   jje=jj_end
-  if (pole_sud) jje=jj_end-1
+  IF (pole_sud) jje=jj_end-1
 
   CALL filtreg_p( rot, jjb_v,jje_v, jjb,jje,jjm, &