Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_vent.f90

Timestamp:

Jul 23, 2024, 7:14:34 PM (3 months ago)

Author:

abarral

Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_vent.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_vent.f90

@@ -102 +102 @@
   !   print *,'u v 1 ', u10m_ec(1),v10m_ec(1)
   !   print *,'u v klon ', u10m_ec(klon),v10m_ec(klon)
-  RETURN
+
 END SUBROUTINE read_vent
 
@@ -122 +122 @@
   enddo
 
-  return
+
 END SUBROUTINE  correctbid