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

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

@@ -256 +256 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE nuage
 SUBROUTINE diagcld1(paprs, pplay, rain, snow, kbot, ktop, diafra, dialiq)
@@ -338 +338 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE diagcld1
 SUBROUTINE diagcld2(paprs, pplay, t, q, diafra, dialiq)
@@ -428 +428 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE diagcld2