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

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

@@ -198 +198 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE conflx
 ! --------------------------------------------------------------------
@@ -473 +473 @@
 
 1000 CONTINUE
-  RETURN
+
 END SUBROUTINE flxmain
 SUBROUTINE flxini(pten, pqen, pqsen, pgeo, paph, pgeoh, ptenh, pqenh, pqsenh, &
@@ -596 +596 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE flxini
 SUBROUTINE flxbase(ptenh, pqenh, pgeoh, paph, ptu, pqu, plu, ldcum, kcbot, &
@@ -676 +676 @@
 290 END DO
 
-  RETURN
+
 END SUBROUTINE flxbase
 SUBROUTINE flxasc(pdtime, ptenh, pqenh, pten, pqen, pqsen, pgeo, pgeoh, pap, &
@@ -975 +975 @@
 
 800 CONTINUE
-  RETURN
+
 END SUBROUTINE flxasc
 SUBROUTINE flxflux(pdtime, pqen, pqsen, ptenh, pqenh, pap, paph, ldland, &
@@ -1221 +1221 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE flxflux
 SUBROUTINE flxdtdq(pdtime, ktopm2, paph, ldcum, pten, pmfus, pmfds, pmfuq, &
@@ -1283 +1283 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE flxdtdq
 SUBROUTINE flxdlfs(ptenh, pqenh, pgeoh, paph, ptu, pqu, ldcum, kcbot, kctop, &
@@ -1390 +1390 @@
 290 END DO
 
-  RETURN
+
 END SUBROUTINE flxdlfs
 SUBROUTINE flxddraf(ptenh, pqenh, pgeoh, paph, prfl, ptd, pqd, pmfd, pmfds, &
@@ -1504 +1504 @@
 
 180 END DO
-  RETURN
+
 END SUBROUTINE flxddraf
 SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall)
@@ -1579 +1579 @@
 
 230 CONTINUE
-  RETURN
+
 END SUBROUTINE flxadjtq
 SUBROUTINE flxsetup
@@ -1605 +1605 @@
   lmfdudv = .TRUE.
 
-  RETURN
+
 END SUBROUTINE flxsetup