Changeset 2671 for vendors/AGRIF/current/AGRIF_FILES/modcluster.F

Timestamp:

2011-03-08T15:08:49+01:00 (13 years ago)

Author:

rblod

Message:

Load working_directory into vendors/AGRIF/current.

File:

• vendors/AGRIF/current/AGRIF_FILES/modcluster.F (modified) (2 diffs)

vendors/AGRIF/current/AGRIF_FILES/modcluster.F

@@ -1 +1 @@
 !
-! $Id: modcluster.F 1200 2008-09-24 13:05:20Z rblod $
+! $Id: modcluster.F 662 2007-05-25 15:58:52Z opalod $
 !
 C     AGRIF (Adaptive Grid Refinement In Fortran)
@@ -1166 +1166 @@
 C
         newgrid % parent => g      
+
+C       Level of the current grid
+        newgrid % level = newgrid % parent % level + 1
+        if (newgrid % level > Agrif_MaxLevelLoc) then
+          Agrif_MaxLevelLoc = newgrid%level
+        endif
+
 C      
 C       Grid pointed by newgrid is a fixed grid