Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/heavyside.f90

Timestamp:

Jul 23, 2024, 7:14:34 PM (8 weeks 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/dyn3d_common/heavyside.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/dyn3d_common/heavyside.F) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/heavyside.f90

@@ -2 +2 @@
 ! $Header$
 
-c
-c
-       FUNCTION heavyside(a)
+!
+!
+ FUNCTION heavyside(a)
 
-c      ...   P. Le Van  ....
-c
-       IMPLICIT NONE
+   ! ...   P. Le Van  ....
+  !
+   IMPLICIT NONE
 
-       REAL(KIND=8) heavyside , a
+   REAL(KIND=8) heavyside , a
 
-       IF ( a<=0. )  THEN
-         heavyside = 0.
-       ELSE
-         heavyside = 1.
-       ENDIF
+   IF ( a<=0. )  THEN
+     heavyside = 0.
+   ELSE
+     heavyside = 1.
+   ENDIF
 
-       RETURN
-       END
+   RETURN
+END FUNCTION heavyside