Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/gradiv2_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/gradiv2_loc.f90 (modified) (1 diff)

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

@@ -133 +133 @@
    DO   l = 1, klevel
 
-     if (pole_sud) ije=ij_end
+     IF (pole_sud) ije=ij_end
      DO  ij = ijb, ije
       gdx_out( ij,l ) = gdx( ij,l ) * nugrads
      ENDDO
 
-     if (pole_sud) ije=ij_end-iip1
+     IF (pole_sud) ije=ij_end-iip1
      DO  ij = ijb, ije
       gdy_out( ij,l ) = gdy( ij,l ) * nugrads