Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotrac_routines_mod.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/phylmdiso/isotrac_routines_mod.F90 (modified) (22 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotrac_routines_mod.F90

@@ -1101 +1101 @@
 #endif      
 
-      return
+
       END SUBROUTINE  ajoute_revap
 
@@ -1311 +1311 @@
       endif
       
-      return
+
       end function is_in_bassin
 
@@ -1368 +1368 @@
 #endif
 
-        return
+
         END SUBROUTINE  find_bassin
 
@@ -1394 +1394 @@
        endif
 
-        return
+
         END SUBROUTINE  initialise_bassins_boites
 
@@ -1420 +1420 @@
         enddo
 
-        return
+
         END SUBROUTINE  bassin_map_init
 
@@ -1447 +1447 @@
 !        write(*,*) 'is_in_rectangle=',is_in_rectangle
 !#endif        
-        return
+
         end function is_in_rectangle
 
@@ -1484 +1484 @@
 !     :         det1,det2,det3,is_in_triangle
 !#endif
-        return
+
         end function is_in_triangle
 
@@ -1569 +1569 @@
 #endif
 
-        return
+
         END SUBROUTINE  isotrac_recolorise_tmin
 
@@ -1624 +1624 @@
 #endif
 
-        return
+
         END SUBROUTINE  isotrac_recolorise_tmin_sfrev
 
@@ -1689 +1689 @@
 #endif
 
-        return
+
         END SUBROUTINE  isotrac_recolorise_saturation
 
@@ -1741 +1741 @@
 #endif
 
-        return
+
         END SUBROUTINE  isotrac_recolorise_boite
 
@@ -1788 +1788 @@
 #endif
 
-        return
+
         END SUBROUTINE  isotrac_recolorise_extra
 
@@ -1857 +1857 @@
 #endif
 
-        return
+
         END SUBROUTINE  isotrac_recolorise_conv
 
@@ -1910 +1910 @@
         enddo
 
-        return
+
         END SUBROUTINE  boite_AMMA_init
 
@@ -1948 +1948 @@
         enddo
 
-        return
+
         END SUBROUTINE  boite_UT_extra_init
 
@@ -1968 +1968 @@
         endif
 
-        return
+
         end function index_zone_lat
 
@@ -1988 +1988 @@
         write(*,*) 'zone_pres=',zone_pres(1:nzone_pres-1)
 
-        return
+
         end function index_zone_pres
 
@@ -2024 +2024 @@
         endif !if (nzone_pres.gt.1) then
 
-        return
+
         end function find_index
 
@@ -2045 +2045 @@
         index_zone_latpres=index_lat+(index_pres-1)*nzone_lat
 
-        return
+
         end function index_zone_latpres
 
@@ -2254 +2254 @@
 #endif
 
-            return
+
             END SUBROUTINE  iso_recolorise_condensation
 
@@ -2281 +2281 @@
         enddo !do i=1,klon
         
-        return
+
         END SUBROUTINE  bassin_map_init_opt20
 
@@ -2309 +2309 @@
       endif !if (option_traceurs.eq.4) then
 
-        return
+
         END SUBROUTINE  isotrac_recolorise_general