Changeset 14429

Timestamp:

2021-02-11T08:43:31+01:00 (3 years ago)

Author:

smasson

Message:

agrif: add Agrif_Root_Only function, see #2615

File:

• vendors/AGRIF/dev_r14312_MPI_Interface/AGRIF_FILES/modcurgridfunctions.F90 (modified) (1 diff)

vendors/AGRIF/dev_r14312_MPI_Interface/AGRIF_FILES/modcurgridfunctions.F90

@@ -1125 +1125 @@
 end subroutine Agrif_UnSet_external_linear_interp
 
+! test if there is at least a child grid in the early stage of the initialisation
+! (when Agrif_Nb_Fine_Grids is not yet defined)
+LOGICAL FUNCTION Agrif_Root_Only()
+   INTEGER :: nb_rootschildgrids
+   INTEGER :: nunit, iost
+   LOGICAL :: Bexist
+   
+   nunit = Agrif_Get_Unit()
+   OPEN(nunit, file='AGRIF_FixedGrids.in', form='formatted', status="old", action ="read", IOSTAT=iost)
+   IF( iost == 0 ) THEN
+      READ(nunit,*) nb_rootschildgrids
+      CLOSE(nunit)
+      Agrif_Root_Only = (nb_rootschildgrids <= 0)
+   ELSE
+      INQUIRE(FILE='AGRIF_FixedGrids.in',EXIST=BEXIST)
+      IF (.NOT. BEXIST) THEN
+         PRINT*,'ERROR : File AGRIF_FixedGrids.in not found.'
+         STOP
+      ELSE
+         PRINT*,'Error opening file AGRIF_FixedGrids.in'
+         STOP
+      ENDIF
+   ENDIF
+ 
+END FUNCTION Agrif_Root_Only
+
 end module Agrif_CurgridFunctions