Changeset 185

Timestamp:

03/02/18 17:35:00 (6 years ago)

Author:

aquiquet

Message:

Correcting multiple definitions of inv_mweert

File:

• trunk/SOURCES/furst_schoof_mod.f90 (modified) (1 diff)

trunk/SOURCES/furst_schoof_mod.f90

@@ -592 +592 @@
 real,intent(out) :: phi_schoof
 
-real             :: inv_mweert
-
 ! afq: in standard GRISLI (19/05/17), tob= -beta ub => m_weert = 1 and C_frot = beta
-
-inv_mweert = 1./m_weert
 
 !phi_schoof = (((A_mean * rog**(n_glen+1) * (1 - alpha)**n_glen) / (4**n_glen *C_frot)) **(1./(1.+1./m_weert)))*back_force_coef**(n_glen/(1+1./m_weert))