Disable Boundary Condition depending on Time

# User Parameters
endT1	= 0.04				#[s] Stop Time for first Calculation Run
endT 	= 0.05				#[s] Stop of the simulation
maxdT	= 0.001				#[s] Max Time Step
archivT	= 0.001				#[s] Time increment to write results



DEBUT();

...

                                                                 




# List of time instant for the INCREMENTAL SOLUTION
timestep=DEFI_LIST_REEL(DEBUT=0.0,
						INTERVALLE=_F(JUSQU_A=endT,
                                     		 NOMBRE=endT/maxdT,),
                        I			NFO=2,
                        );

# List of time instant for ARCHIVAGE
L_archiv=DEFI_LIST_REEL(DEBUT=0.0,
						INTERVALLE=_F(JUSQU_A=endT,
                                     		NOMBRE=endT/archivT,),);

# Variable Time Step
incrm=DEFI_LIST_INST(
					DEFI_LIST=_F(METHODE='AUTO',
								 	LIST_INST=timestep,
								  	PAS_MINI=1e-10,),
					 ECHEC=_F(EVENEMENT='ERREUR',
							  		SUBD_PAS=4,),
					 ADAPTATION=_F(EVENEMENT='SEUIL',
								  	 NB_INCR_SEUIL=3,
								   	NOM_PARA='NB_ITER_NEWTON',
								   	CRIT_COMP='LE',
								  	PCENT_AUGM=100.0,),);


#Calculate first phase
Result=DYNA_NON_LINE(
					MODELE=Model,
					INCREMENT=_F(LIST_INST=incrm,
								 	INST_FIN=endT1,								#SPECIFIES END TIME FOR FIRST PHASE
									),

					EXCIT=(_F(CHARGE=matFix,),
							
							#### HOLD ####
							_F(CHARGE=holdPres,
								FONC_MULT=LRForce,),
							#~ _F(CHARGE=HoldMove,
								#~ FONC_MULT=LRLift,),
							
							),
					
					...
					
					  ),
				  );

#Calculate Free String					
Result=DYNA_NON_LINE(
					reuse = Result,												#Reuse former results
					ETAT_INIT=_F(EVOL_NOLI=Result,),							#Load Fields
					MODELE=Model,
					INCREMENT=_F(LIST_INST=incrm,),
					EXCIT=(_F(CHARGE=matFix,),
							
							#### HOLD ####
							#~ _F(CHARGE=holdPres,
								#~ FONC_MULT=LRForce,),
							_F(CHARGE=HoldMove,
								FONC_MULT=LRLift,),
							
							  ),
					...
					
				  );

...

FIN();