Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/phylmd/cv_routines.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/phylmd/cv_routines.F90 (modified) (12 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cv_routines.F90

@@ -71 +71 @@
   delta = 0.01 ! cld
 
-  RETURN
+
 END SUBROUTINE cv_param
 
@@ -128 +128 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE cv_prelim
 
@@ -249 +249 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE cv_feed
 
@@ -359 +359 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE cv_undilute1
 
@@ -389 +389 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE cv_trigger
 
@@ -476 +476 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE cv_compress
 
@@ -759 +759 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE cv_undilute2
 
@@ -841 +841 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE cv_closure
 
@@ -1093 +1093 @@
 789 END DO
 
-  RETURN
+
 END SUBROUTINE cv_mixing
 
@@ -1294 +1294 @@
 899 END DO
 
-  RETURN
+
 END SUBROUTINE cv_unsat
 
@@ -1663 +1663 @@
   END DO ! cld
 
-  RETURN
+
 END SUBROUTINE cv_yield
 
@@ -1709 +1709 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE cv_uncompress