FIELD_ARRAY: add delayed allocation option to constructor

Author: awnawab

src/util/field_RANKSUFF_array_module.fypp

@@ -47,26 +47,28 @@ PUBLIC :: ${ft.name}$_ARRAY
 CONTAINS
 
 #:for ft in fieldTypeList
-SUBROUTINE INIT_${ft.name}$_ARRAY_WRAPPER (SELF, P, LBOUNDS, SYNC_ON_FINAL)
+SUBROUTINE INIT_${ft.name}$_ARRAY_WRAPPER (SELF, P, LBOUNDS, SYNC_ON_FINAL, DELAYED)
 
 CLASS (${ft.name}$_ARRAY) :: SELF
 ${ft.type}$, INTENT (IN), TARGET :: P (${ft.shape}$)
 INTEGER (KIND=JPIM), INTENT (IN), OPTIONAL :: LBOUNDS (${ft.rank}$)
 LOGICAL, OPTIONAL, INTENT(IN) :: SYNC_ON_FINAL
+LOGICAL, OPTIONAL, INTENT(IN) :: DELAYED
 
 CALL FIELD_NEW (SELF%F_P, DATA=P, PERSISTENT=.TRUE., LBOUNDS=LBOUNDS, SYNC_ON_FINAL=SYNC_ON_FINAL)
 
 END SUBROUTINE
 
-SUBROUTINE INIT_${ft.name}$_ARRAY_OWNER (SELF, PERSISTENT, UBOUNDS, LBOUNDS, SYNC_ON_FINAL)
+SUBROUTINE INIT_${ft.name}$_ARRAY_OWNER (SELF, PERSISTENT, UBOUNDS, LBOUNDS, SYNC_ON_FINAL, DELAYED)
 
 CLASS (${ft.name}$_ARRAY) :: SELF
 INTEGER (KIND=JPIM), INTENT (IN) :: UBOUNDS (${ft.rank}$)
 INTEGER (KIND=JPIM), INTENT (IN), OPTIONAL :: LBOUNDS (${ft.rank}$)
 LOGICAL,             INTENT (IN), OPTIONAL :: PERSISTENT
 LOGICAL, OPTIONAL, INTENT(IN) :: SYNC_ON_FINAL
+LOGICAL, OPTIONAL, INTENT(IN) :: DELAYED
 
-CALL FIELD_NEW (SELF%F_P, UBOUNDS=UBOUNDS, PERSISTENT=PERSISTENT, LBOUNDS=LBOUNDS)
+CALL FIELD_NEW (SELF%F_P, UBOUNDS=UBOUNDS, PERSISTENT=PERSISTENT, LBOUNDS=LBOUNDS, DELAYED=DELAYED)
 
 END SUBROUTINE