Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/dyn3d/vlsplt.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/vlsplt.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/vlsplt.F90

@@ -102 +102 @@
   enddo
 
-  RETURN
+
 END SUBROUTINE vlsplt
 RECURSIVE SUBROUTINE vlx(q,pente_max,masse,u_m,iq)
@@ -419 +419 @@
   enddo
 
-  RETURN
+
 END SUBROUTINE vlx
 RECURSIVE SUBROUTINE vly(q,pente_max,masse,masse_adv_v,iq)
@@ -746 +746 @@
   ! !write(*,*) 'vly 853: sortie'
 
-  RETURN
+
 END SUBROUTINE vly
 RECURSIVE SUBROUTINE vlz(q,pente_max,masse,w,iq)
@@ -889 +889 @@
   enddo
 
-  RETURN
+
 END SUBROUTINE vlz
 
@@ -901 +901 @@
   real :: zq(ip1jmp1,llm)
   real :: zzq(iip1,jjp1,llm)
-  return
+
 END SUBROUTINE  minmaxq